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KEMMEIR 



H OE 6S02 KEHCRS « 



EEN CLUB VDOR 6XXXX GEHUIKEHS H DE 6502 KENNER «• - EEN BLAD VDOR 6XXXX BEBRUIKESS 



Of vtreniging hieft liden in NMterland, Bilgifl, Duitilmd, 
Frankriik, Spaige, Portugal, Aierika, Zaabia, DeiMtarken. 
Hit dotl van dt virMiglng In Iwt bivDrdflrtn van di kan- 

nisuitNisseling tussen gefiruikers van eXXXX-CMOutirt, all 
COMDORE-M. Me. OC-1. PEARCON, AIN-6S, SyfT PET BBC 
flTflRI. VIC-26. KBiS lOfl, ^ROTO-coipttttrt. in-5020, OSL 
flCCMOO, flCOM ElfCTRON. 8V8TEPI 63, PC-I06, PflLLflS. MMTft 
FtWOM. ORIC-1, SmiiHT. CV-777 ESTOTE III. 8Bt65/68, 
KINJNO, KEMW SYSTEN-4. tlekt«ur-ca«p«ters (MjNIOR, m 
de OCTOPUS) USER, uar 00k 6800, 6809 en 68000-coMuters. 
Oe kamisuitNisseliin Nordt o.a. gerealiseerd door 6 taal 

Kr jaar DE 6502 KENHER tt publictrtn, door het houden van 
ndclijke clubbijeenkoasten, door het instandhouden van 
een catsitte-bibhotheck en door het verlcnen van paper- 
Nart-wrvice. Regionale bijeenkoasten worden door de leden 
georganisatrdi 



Verflchijningidata 
DE 6502 KBHER 19 85 

derde zaterdag van 
februari, april, juni, 
augustus, oktober, deceaber. 

Inlichtingen over de regio- 
bijaflnkoMteni 

Strard van Rockcl 

Van dtr Palattraat 11 - C 

3139 LK Vlaardingen 

Tel. : 010 - 351101 



Bijeenkoasten van de club 

derde zaterdag van 
januari, aaarf, aei, 
septeaber, noveaber. 

Redaktie-adres en inforaa 
ties over papcrtMrt etc. 

Hi Ilea L. van Pelt 
Jacob Jordacncstraat IS 

2923 CK Kriapen/IJssel. 
Tel.! 01807 - 19881 



Ofl virmiging it volledig onafhankelijk, is statutair op- 

iericht en ingcschrtven bij de Kaaer van Keophandel en Fa- 
riakfn voor Hollands Noorderkitartier tt Alkaaar, ondir 
nuaatr 634309. 



Voorzitttrt 
Rinus Vleesch-Dubais 
Fl. Night ingalestraat 212 
2037 N6 Haarlea 
Tel.! 023 - 330993 

Pcnningaeester: 
John F. van Sprang 

Mb 71 

2929 EH Kriaptn/IJiMl. 
Til. I 01807 - 20S89 



Sakrfftirifi 

Bert Klein 
Diedenteg 119 
6706 CM flageningen 
Tel. i 0^- aU6 

Redaktie DE 6502 KBMER: 
Hi Ilea L. van Pelt 
Jacob Jordaensstrut IS 
2923 CX Kriapan/IJsiel. 
Tfl.i 01807 - 19881 



Ladmi 
Adri Hankil 
Eniin Visschedijk 
Gert van (^broek 
Nico de Vries 
Erevoorzitteri 
Ereleden • 

Lidaaatschap 1 



HardNare/saftHart/DQ66S 

HardMare/softMare/D0S65 



(0S49O - 511S1 ) 
(05490 - 71416 ) 
(01729 - 8636 ) 

(010 - S02239) HardMrt/softMrf/PET 
Siep de Vries 

Mm. H. de Vries - Van der Uinden 
Anton Muilltr 

HFl. 45,^ per kalenderjaar, pestreke- 
ning 3757649 t.n.v. Penningaeester KIN 
Stbruikari Club Nad., Krlapen/Ussel. 

Advertent ies : Tarieven op aanvraag bij de redaktie. 



DE 6902 KENNER is een uitgave van de KIM Gebruikers Club 
Nederland. Het blad wrdt verstrekt aan leden van de club. 
OE 6S02 KENNER Nordt van kopij voorzien door laden van de 
club, bij de opauk van em publikatic bijgestun door di 
radaktifl. Da inzandingan van prograaaa's dienan voorzien te 
zijn van koaaantur in da listings en zo aogelijk door een 
inlaiding voarafgagaan. Publikatia van aan inzanding bete- 
kant niat dat da redaktie of het bastuur enige aanspraka- 
lijkheid aanvaardt voor de toepassing ervan. 9e inzendingen 
kunnen geschieden in asseafalv-source-listings, in Basic, in 
Basicode, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. 

De leden schrijven 00k artikelen over de door hen ontHikkel 
de hardMre en/of aanpassingen daarop. Zij schrijven tevens 
artikelen van algeaene aard of reageren op pubhkaties van 
andere inzenders. 

DE 6502 KENNER IS EEN BLflO WW EN DOOR K L£KN 

Nicro-ADE Asseabler/Disasseabler/Editor is een produkt van 
Micro Mare Ltd., geschreven door Peter Jennings en bestead 
voor alle 6502-coaputers. De KIN Gebruikers Club Ned. heeft 
de copyrights ventorven nadat ons lid Sebo Uoldringh de 4 K 
KIN-1 versie uitbreidde tot 8 K KIM-1 versie. Adri Hankel 
paste deze aan voor de JUNIOR. Hi Ilea L. van Pelt stelde 
can nieuMe 8 K source-listing voor de JUNIOR saaen. 
De iapleaentatie op andere systeaen dan de KIK-1 en JUNIOR 
kan aanvoudig gabauran door het aanpassen van de I/O-adres- 
sen, aelkt in de source-listing geaakkelijke te vinden zijn 

FATE Foraat-listar/cond. Assaablar/Tape-utilities/Editor is 
de door ons lid Rob Banen geschreven source-listing van een 
12 K universeel systeea voor de JUNIOR-coaputer aan de hand 
van het universele disk operating systea van de fa. Proton 
Elactronict ta Naardan, nu oaKhikt voor itarken aet tapes. 
FATE Mordt baschikbaar gesteld aet toesteaaing van Proton. 

In da adltlat van DE 6502 KENNER mrden regelaatig aedede- 
lingen gedaan over de door de club georganiseerde bijeen- 
koastan. Ook tiordan bastuurlijke aededelingen gedaan, naast 
inforaaties over hetgeen in de handel te koop is. Leden die 
iats ta kaop habban of lets zoeken kunnen dit in de edities 
van DE 6502 KEMCR bekend aaken. Ook Norden brieven aan de 
redaktie gepubliceerd, evenals specifieke vragen van leden. 
De edities wrden saaengesteld op basis van een groat aan- 
tal prioritaitan, aalka door aan radaktiavergadering warden 
gahantaard. Daze varoadering bestaat uit de vaste aedewer- 
kart zoalfl in da coloron varaald. Hat aantal inzendingen is 

Sroter dan in een enkele editie van ainiaaal 48 pagina's is 
e venierfcen. Hierdoor kan het voorkoaen dat een inzending 
aartt na aniga tijd kan worden gepubliceerd. 

OE CLUB iCEFT BEHOEFTE AAN NEER LEDEN. UIJ HILLEN NER AflN 
KUNNEN BIEDEN DAN NU PL HET EEVAL IS. UERF DAARW EEN LID! 

HILT U EEN PRIJSLIJST? STUM EEH SEFRflNKEERDE ENVELOP AAN 
HET REDAKTIE-ADRES. 

Ean onifhankaliika jury kant jaarlijks aan aantal aanaoe- 

digingspreaies toe aan auteurs van gepubliceerde artikelen 
in DE ^ KQKR. 
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KENMI 



De 6S02 KEWER is een 
uitgave van de KIH gebrai- 
kers Club Nederland. 



Mrts voor het inzenden 
van en reakties op artike- 
len voor DE 6502 KDWER: 
Willea L. van Pelt 
Jacob Jordaensstraat 15 
2?2ZQi Krif^wn a/IJssel 
1^1 01807 «^1 

Vaste aedeHerkers: 

Uillet L. van Pelt 
i Gerard van Roekel 
Frans Saeehuijzen 

Freelance aedetterkers: 

Rob Banen 
Fred Behringer, (Geraany) 
FriduB Jonkaan 
Gert Klein 
Roger Langeveld 
Fernando Lopez, (Portugal) 
Frank Manshande 
Ruud Uphoff 
Frans Verberkt 
Heraan Zondag 

Gehele of gedeeltelijke 
overnaae van de inhoud 
van DE 6502 KEIWER zonder 
toetteaaing van het be- 
stuur is verboden. Toepas- 
sing van gepubliceerde 
prograaaa's, harditare etc. 
IS alleen toegestaan voer 
persoonlijk gebruik. 

DE 6502 KENNER verschijnt 
6 X per jaar en heeft een 
oplage van 500 exeaplaren. 

Copyright (C) 1986 KIH 
BAtttikers Club NRfatrI«iid. 



De voorpagina is de D0S6S- 
controllerkaart. ontNik- 
keld door Ad BrouMer. 
CflO/CAN: E. Visschedijk. 
I.s.a. : fl. Hankel 
Fotogr. : Fr. Visschedijk. 

In verband aet auteursNet- 
QBving en andert aaatrege- 
len op het gebied van be- 
•chiraing van loftMre 
kan de rsdaktie gam aan- 
sprakelijkheid aanvaai^ 
voor inzendingen. 
Inzendingen dienen afkoa- 
stig te zijn v«i de iiaen- 
der, tenzxj — 
gevoi. 



IMOJDSaPeflVE OE &S02 KENNER NR. 43 NEI19a6 



1. Uitnodiging MjteiiiMt 


2. 


2. V«t ite f«Mit»i 


2. 


3. D0565: RG232 flCIR (6SS»»'M^pfg|iM 
... fldri S. Hankel 




4. 6S(C)02: Vervanging 6502 door 6SC02 in Elektvur's JUNIM-co^wter 
Vervanging is aogelijk, aaar niet ZMfilir aeer. 
... Jan Vemiaaen. 


16. 


S. nPPLE^^le files opi^lagen. 


17. 


b. oHaiL' uoapetiviestanden inanaoai/ 
Na de inleidim nu het hoofdprograaM, 




7. APPLE: Toepassing 'Runtiae' voor de flpplKoft coapiler TflSC 
... Frans verbcrai ' 


■■'"t 


8. BflSIC: Positieve Getallen 

HEflO-schslieren prograaaemi oek. . 
... Gert KNetters tii Bart van Pelt 


.'-'*.■ -"■ 


9. OCTOPUG: Diskette Copier Version 2.2 Part 1 

Modification for serial s»te* for double-sided disk-drives 

... vr. HOlrgng ilevSCn 


a 


idi ^lOR-HflRDMRE: Bank GMitching for the IKRINwqwtBr 
... Fernando Lopez, Portugal 


44. 


11. HRRDHME: Disk-drive aator-steering platine-layout 
... Siegfried Losmsl^, Genw^ 


48. 


12. APPLE! Het Apple Bootproces 
...Frmk Nanshande 


1^ 


13. DIVERSEtj: 

Elektor's (KTOPUG Diskettes Available 
Vraag en Aanbod 
Reparaties C-64 

C-b4: Kopie van het beeldschera 

C-i6: Listing Only on Key Held down, Fred Behringer, NuenclMKi . 
BASIC: Day of the Meek 

Een iMit-ing«i|| ^r (ie JIJNIOR door Roger U«eBytl(i 


m. 
a. 



DATBHS for Elector's JUNIW with WXHart and 0S-65D 

Our aeaber Jan van Heuven publiriicd in our issue nr. 37 froa page 25 the PRINTKX.Y) 

"'edit, 'to'eraM"aff'te'^^l^'^I^Pfl^^^-S» *S^ 
the Dutch language. 

Uith soae little aodifications our Portugese friend Fernando Lopez translated the 
PRINTt(X,Y) adaptation and the DflTBAS-prograa into the English language to serw 
other aeabers of our club. 



I 



LUODSJaftftOI^A^^Op'ftAMrtA 



E 5 a 



KE^4l^iE:R 



UITN0DI6INS BIJEENKCNST 



Datua 
Lokatia 



Reisrottte 
- per auto 



zaterdaa 24 mi 19K 

SpMltuIngtbouN BNklust/Ossenkoppelerhoek 

Jm SiHBStrait fiS. nmo. Tel. ! 05(90 - i%a 



1. 



2. 



3. 



de eerstvolgende 
hruiipwt zondcr 



Vanuit het Nesten en het zuiden via de Rl/RSS. 
Aan het eindt van de snelweg recMsaf. Bij 
stoplichten rechtdoor. Na ca. t(K) ■. 
stoplichten. 6a hier linksaf. 
Deze straat, de Jan Veneerstraat, aaakt een flauwe bocht naar 
rechtt. flan het einda van deze bocht ziet U links de lichtaasten 
van een voetbalveld. 6a linksaf. Het speeltttifigriMVN vindt U m 
ca. 150 a. aan de linkerkant. 



Uierden/ZHoIIe. Ba 
U kont dan over 



hier 
een 



Vanuit het noorden via de N36. 
Rij door tot flNWB-borden richting 
rechtsaf. Blijf deze Heg volgen. 
spoorMegoveraang. 

6a na ca. ISO a. linksaf, Heer richting Uierden/ZMoUe. Na ca. 
200 a. ziet U rechts een Texaco-benzinestation. 6a hier 
rechtsaf. Verder als beschreven bij punt 2. 



TaE6ANeS>RlJS : FL. 10, 



De (KTOiUS, Elektuur's nieuHste DOS-coaputer, 
begint in onze club een plaats te veroveren. 
In Duitsland zijn er al vele gebruikers, aet 
als prettige bijkoastigheid dat nij daardoor 
ook enkele leden konden begroeten. De aeeste 
van die leden kennen de betekenis van publi- 
ceren in DE 6S02 KENNER. Or. Tietsch is van 
hen de eerste die aet een oavangrijke inzen- 
ding. Helke in delen aoet Horden geplaatst, 
een belangriik utility-prograaaa aanbiedt. 
Hij is ieaand die als vele buitenlandse le- 
den echter Hel graag ook van ons zou Hi lien 
leren. Onze aooie nederlandse taal is echter 
voor hen nog erger dan chinees, heb ik af en 
toe het gevoel. Uillen onze nederlandse en 
belgische leden echter profiteren van kennis 
die ons van buiten aangereikt kan Morden, 
dan lijkt het toch niet onverstandig de ar- 
tikelen toch zoveel aogelijk in het engels 
te schrijven; iaaers de voertaal onder door- 

?eHinterde prograaeeurs. Het is geen eis, de 
eden die er aoeite aee hebben, leveren als 
geHoonlijk in het nederlands in, aaar het is 
goed te beseffen dat engelstalige artikelen 
in het buitenland de aantrekkingskracht naar 
onze club kan vergroten. Ik heb beaerkt dat 
de kontakten die ik in het buitenland Mist 
te beMerkstelligen eerder konden Norden oa- 
gezet in een lidaaatschap als ik kon over- 
tuigen dat er voldoende engelstalige artike- 
len in stonden. Laten ite dat aet z'n alien 
proberen mar te aaken! Nederland zelf wordt 
voor ons een te klein gebied oa daaruit vol- 
doende leden te blijven trekken, vrees ik, 
zelfs niet aet het verbreden van ons gebied 
van aandacht door er de 6800, 6809 en 68XXX 
aan toe te voegen. 

De club is doende aaatregelen te neaen oa de 
bezitters van OCTtPUS aet 60 tracks drives 
ook aan de benodigde schijven te helpen. Het 
is nu alleen nog aogelijk 40 tracks te leve- 
ren op aijn eigen drives. De rijkdoa van de 
club staat niet toe dat we al onze wensen in 
fiarmen mi^ «aar er gloort mat hoop als 
Me onze schouders zetten, en U dus ook, on- 
der het werven van nieuwe leden. Maak er wat 
Merk van. Denk niet: dat doet een ander Mel. 
Doe Um best. Het is ook Uh eigen belang. 
Nog een verzoek. HoeNel afhankeliik van de 
oavang van de instrooa van artikelen, zullen 

Me toch nader onderzoeken of de inforaatie- . ... , i . ,i , t _ 

dichtheid in DE 5502 KENNER nog venter kunnen opvoeren. Dat is geen eenvoudige zaak. Niet uit een redaktioneel oogpunt, aaar ze- 
ker niet als He denken aan het evennicht dat er aoet bestaan tussen het binnenstroaen van de artikelen en^^het plaatsen ervan, bo 
Vttidien 

er aoeten __ 

zeggingen uit de hoek van de flpplelaars in onze club, 
beetje, dank zij een nieun lid, t.M. Frank Nanshande, een van de jongere, 
op het redaktionele gebied. Ik ben daar erg blij aee, " - •'■ 



Lunchpakket event ueel zelf aee te neaen. 
Lunch is ook tegen verooeding verkrijgbaar. 
Konsuapties tegen betaking. 



pRoeRmm 



09.30 
10.15 



10.30 



Zaal open. 

Opening door de gasttwren Ernin Visschedijk 
Hankel en door diens echtgenoten, die voor een 
vriendelijke bediening en oegeleiding zorgen. 
Lezing over tran5ition-(toestands-)diagraaaen 



en Adr-i 
uiterst 



net deaonstratie 6S02-gestuurde telefooncentrale 
door ErHin Visschedijk 
11.30 Koffiepauze. 

11.45 Forua. Aan het forua kunnen vragen gesteld Norden 
allerlei aard. 

12.00 Lunchpauze. 

13.00 I!i™feL SEDEELT. 

Tijdens het inforaeel gedeelte kunnen leden vrij 
elkaar en aet elkaars ervaringen kennis aaken. Leden 
brenqen hun systeaen aee en deaonstreren dit aan de 
aantiezigen. NEEN OAflROK UU COMPUTER ICE !! ! 
R R K T. eigen tafel(s) te regelen. 

17.00 Sluiting. 



van 



met 



c ais He oenKen aan n« everaiicni odi er noet utmaau msaen nci, uihiicm3w.uk: ■ tqh r— 
nog getoetst tegen de achtergrond van de saaenstel lings- en variatieaogehjkheden vanuit de copy-buffer. tenvouCig cezegd. 
n Mel voldoende artikelen binnen blijven stroaen nil er van enige haalbaarheid sprake zijn. Gelukkij zijn er neer i*dt toe- 

' • De pogingen oa uit die hoek aateriaal binnen te haien slaagden Siweer een 
n van de jongere, aaar veelbelovende leden, die ook kritische noten plaatst 
Aan U Mil ik in dit verband vragen Um inzendingen zoveel aogelijk op papier 
in te bieden. het liefst 6 LPI (8 lijnen per inch), in een harde zMart/Mit-verhouding, ca. 65 lijnen per^pagina. 



is prettig als ik tussen alle post ook nog CoMiodo re-art ikelen of Otari-artikelen aan kan treffen. Tot nu toe blijft dat aaar 
•agertjei, ternijl ne toch voldoende van deze,aachines in huis hebben, Het is heus nietzo datalleen "f"!*"^! "L,?''!^ 
ingelevercl, Basic, Coaal, Pascal, Forth, etc., allM is Mtlkoa; Mi kimnm ook daamn cm heap Itnw. Koe, zet \k beste beentje eens 

voo r 

Nog tMee opaerkirmen. In de eerste plaats dat er al zo'n veertig D0S65 gebruikers zijn. Niet te vernarren aet OCTOPUS, a! zijn alle 
Elektuur-kaarten, a.u.v. de D08-kaart daarvan, daarin betrokken. Dat is veelbelovend, Het is dan ook aet plezier dat we daarvoor de 
ook het eerste echte prograaaa kunnen plaatsen. Als ik zo op de bijeenkoast zie Mat uit dat D0S65 oroeit, dan aag best gezegd dat fid 
Brouner, de geestelijke vader ervan, in onze club^^_aet de inzet van Erwin Visschedijk en fldri flankel.^^^een gi'Do^nSIJCce^Jfe^^Jf 

bereiken. In de tneede plaats nil ik noi " ' - • - — - '"™ 

door Jaap de Hoop in het engels vertaald 



bereiken. In Se tneede plaats nil ik'nog kniit dat f^ATE, de 12K Foraat Lister/flsseabler/Tape-utilities/Editcr van Rob Banen, eerst 
' aid, nu door Fred tehringer uit Nuenchen naar het duits nerd ver 



vertaald, beiden v.M.b. het aanual 



Nant de source blijft in hef wigels. Fred Behringer heeft inaiddels de eerste kladvertahng naar het duits ingeleverd van het aanuaj 
van Nicro-ADE. Uat ainder zicfitbaar Mordt dat is het vele docuKntatieiierk dat Fernando Lopez uit .Portugal voor ons fo". Ik mi. 
graag van deze plaats af, naar U toe, laten neten dat die inspmingm van grete brttkeiixi kiinnen zijn in relatie aet Lm inzendingen 
en \k inspanningen oa van onze club lets geiieldigf te aakm. "Uiea van veil 



2 
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KEtMNER 



DOS65 D0S65 DOS65 D0S65 D0S65 D0S65 D0S65 D0S65 D0S65 D0S65 D0S65 

RS232 ACIA (6551) iasiel programna. 

Dit programma is speciaal geschreven voor de ACIA op de CPU-kaart 
vaa het D0S65 systeem. la de monitor bij de reset-routine worden twee 
waarden in het geheugen gezet die naar de ACIA gecopieerd worden op het 
moment dat in- of output device 3 aangezet wordt. Deze twee variabelen 
sielltn het command en control register van de ACIA voor. Normaal moet 
altijd de data-sheet geraadpleegd worden om de ACIA in te stellen op 
nofeli jkheden die niet standaard door de monitor worden ingesteld. Default 
staai de A€ZA ingesteld op: 

- twee stop bits 

- 7 data bits 

- Interne baudrate generator 

- 2400 baud ' 

Wil men hier van afwijken, dan moeten de twee variabelen in het 
geheugen op de adressen $CE50 en $CE51 veranderd worden. Met dit prograniBa 
is het mogelijk de waarden voor deze registers snel te bepalen en in te 
^©•re*. Be waarden worden op de adressen $CE50 en $CE51 gezet. Desgewenst 
kan bij het verlaten van het programma de instelling in een file worden 
gezet die naar de systeemschi jf wordt geschreven onder de naam RS232.DAT. 
iete file kan in d« L0GIN.COM file worden aangeroepen als altijd die 
instelling vereist is. Heeft men bijvoorbeeld een seriele printer van 4800 
baud, die altijd op de ACIA is aangesloten, dan wordt een keer het 
profrSMia RS232 aangeroepen en de ACIA goed ingesteld. Het resultaat wordt 
op schijf weggezet en in de L0GIN.COM file komt ie staan ' LO RS232.DAT '. 
Zonder de aanhalingstekens natuurlijk. Wordt het LOGIN programma doorlopen, 
dan worden de waarden «i% de file naar het geheugen gecopieerd en bij 
aanzetten van in- of outptti deviee d wordt de ACIA geinitiaiiseerci op de 
ingestelde manier. "..^.'r . ,^ ' 

ffe» ikoei #ir wel y*f^«»lfig mm houden dat na een reset de insielling 
weer default is zoals boven is genoemd. 

Het programma RS232 wordt vanaf de systeemschi jf aangeroepen als 
een comaotn^®. Ma amnroepen wordt een overzicht gegeven op het beeldscherm 
van de default instelling van de ACIA. Alles kan nu gewijzigd worden door 
de 'cursor' te besturen met cursor besturings karakters. De 'cursor' staat 
op de plaats van de waarde die knippert. De invers op het beeldcolierm 
staande waarden worden vastgehouden. Om een overzicht te krijgen van de 
geldige commando's en cursor besturings karakters wordt de toets H ingetypt 
voor Help. 

Het programma RS232 zal vanaf D0S65 versie 2,01 standaard worden 
meegeleverd op de systeemschi jf. Nu kan men in het bezit komen van dit 
pr#fr«iMia d©©r ten gefor«atteerde diskette voorzien van retourenveloppe met 
postzegels en adres op te sturen naar het bekende D0S65 distributie adres. 
Op een landelijke clubbi jeenkomst kan ook het programma gecopieerd worden. 



D0S65 D0S65 D0S65 D0S65 DOS65 D0S65 D0S65 D0S65 D0S65 DOS65 D0S65 
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5 File: RS232-1.TXT 
; Date: 25 Oct 8S 

« 

jcopyright fiM Idfi 6ebruikeniM MlM^ 



90OO 



0050 
0052 
0054 
0056 



m mm 



5«« 



Zero page locations m******* 



PHI EQU 

INDPNT EQU 

ADPNT EQU 

SPNT EQU 



$50 
PNT+2 
PNT+4 
PNT+6 



;co(«mon used pointer 
; indirect used pointer 
J addressing pointer 
i 'save' pointer 



;♦♦♦♦*♦♦♦«* Special characters 



0008 


6s 


EQU 


$08 


0009 


HT 


EQU 


*09 


WOA 


LF 


EQU 


*0A 


OoOB 


VT 


EQU 


fOB 


woe 


CIS 


EQU 


m 


00 i 4 


FB 


EQU 


$14 


0020 


SP 


EQU 


t20 


eols 


ESC 


m 


flB 



; 'left' command 

j 'right ' command 

; 'down' command 

; 'up' command 

;clear screen command 

;Haq byte for X,Y cosrMM^ 

; space-character 



} »K w «t«igi .JBaaaai9lt variables iU^mkt^'s- -i wiiiwit'. - 



CE50 
CE51 
CEC7 
EOOF 

mi2 



A020 
A023 



hi EQU 
CMD EQU 
SECONDS EQU 
TEXT EQU 

8ET m 



$CE50 
*CE51 
$CEC7 
*EOOF 



;acia control register 
;acia command register 
iseconds register (clock) 
sprint following text-string 



IN EQU 
OUT EQU 

mmt EQU 



*A020 
fA023 

mo6 



jfetch character from input 
;print character in accu 
;i»(ecttte cdmha^ 



8000 4C CC8i 



j i i tiy t jt t *< jiilitf start *«>«««««»* 

m-- mm immimtmia m% 

iset pointer 

J index zero , 
; fetch character fro* 
;end-Df-5tring ? 
I if so, then exit 
I else print the character 
pointe'i'^Qinter+i 

; return to callw 



;re5et pointer to table 
;baudrate 

im\t.e high nibble zero 
isave in tabel 
;pointer=l 
;wordlenght 
; reset nsb 





■ 

;sub print strinq 


8003 86 56 


mm STX 


SPNT 


8005 85 57 


STA 


SPNT+I 


8007 AO 00 


LDY 


#0 


8009 Bl 56 


STRING2 IDA 


[SPNTl.Y 


800B C9 FF 


CMP 


i$FF 


800D FO OB 


BEQ 


STRINBEIffi 


800F 20 23A0 


JSR 


OUT 


8012 E6 56 


INC 


SPNT 


8014 DO F3 


BNE 


STRIN62 


8016 E6 57 


INC 


SPNT+1 


8018 DO EF 


BNE 


STRIN62 


801A 60 


mtimmm 






;5ub compute MPGS table 


80 IB A2 00 


CMPOS LDX 


#0 


801D AD 50CE 


LDA 


CTL 


8020 29 OF 


^D 


#$0F 


8022 9D 3ft88 


STA 


W>CS,X 


8025 E8 


INX 


8026 AD 50CE 


LDA 


CTL 


€029 29 7F 


AND 


«*7F 


802B 4A 


LSRA 




802C 4A 


LSRA 
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802D 4A 


LSRA 




8(.)2t 4A 


LSRA 




802r 4ft 






8030 8D 4D88 


STA 


Tf Mn 

T01P 


80i3 A9 03 


IDA 


13 


OA"?C TO 

80:'5 38 


SEC 




8036 ED 4D88 


SBC 


TENP 


8039 9D 3AB8 


STA 


ffOSfX 


803C £8 


INX 


803D AD 51CE 


IDA 


CMD 


8040 29 20 


AND 


#'/.00100000 


nA J1 1 T\t'\ AC 

8042 DO 05 


BNE 


CNP0S2 


8U44 90 iASS 


STA 


IPOS.X 


8047 hO Or 


BEQ 


CI1P0S3 


OA AO AI\ c<f*r 

8049 AD DICE 


Punnpo 1 nA 

CMP0S2 LDA 


CUD 


OA An A A A/ 

8<J4C AO 06 


LDY 


•6 


OA AC MA 

804E 4A 


uni IP 1 pnA 

nuVt LSRA 




OA A C OO 

804F 88 


DEY 




OACA HA rr* 

8050 DO PC 


BNE 


HOVE 


OAtn AQ 

oOjZ HG 


Tht 




S0d3 Co 


INl 




0054 70 


TVA 

TYA 




8055 9D 3A88 


STA 




8058 E8 


Cma3 INX 


QfiK.O An <?Arc 
oUOV HU jULc 


UA 


PTI 

CTL 


QACr AA 

oODL Oft 


ACH A 




805D BO 04 


mS 


CMP0S4 


OACr AO AA 

805F HY 00 


LOA 


#0 


OA L 1 C A A 

8061 FO 24 


BEQ 


punnpT 

CrruS? 


OA/.T An flnoo 


uriB4 LDA 


TPW% 

TEW 


OAi_/. PO A7 

8066 CV 03 


EnP 


#3 


OA / O HA An 

8068 DO OB 


BNE 


CrfuSD 


OAZ.A An c-irtr 
o06h ftU J ILL 


t VIA 

LDA 


PMn 

CnD 


OA L n oo OA 


Aun 

Amf 


JI'/ AA 1 AAAAA 

#/i0010000v 


OAZ-T CA A/I 

806r FO 04 


Bui 


CMPOSd 


OA*7< AQ A* 

8071 Ay 01 


LDA 


#1 


OAT? nA 1 o 

80/ 3 DO lii 


Okie 

BNE 


PMnnPT 

CreTjS7 


o/'i"7C An Anno 

80/D AD 4D88 


UfDSS LDA 


TEMP 


OATO nA AO 

80/8 DO OB 


BIC 


punnp / 

Cr1PuS6 


QATA An CiPf 

807A AD 5 ICE 


LOA 


CMD 


OATn nn oa 
80 /D zO 


Aw 


JIV AA t AAAAA 


OATP CA AA 

307F FO 04 


nr*n 

ttS 


CNP0S6 


8081 A9 00 


IDA 


#0 


8083 FO 02 


BEQ 


CMP0S7 


8085 A9 02 


CI1P0S6 LDA 


12 


8087 9D 3ftffl 


CnPOS/ STA 


NPOS,X 


808A £8 


M 


808B AD 50CE 


LM 


CTL 


nAnc on * a 

808E 29 10 


AM) 


iZOOOlOOOO 


8090 DO 04 


BNE 




8092 A9 00 


LDA 


#0 


OAn A PA AO 

8094 FO 02 


BEQ 


CMP0S9 


DAO/ An Al 

8096 A9 01 


OV1jS8 LDA 


«1 


OAno nn taho 

8098 9D 3A8B 


CrPOs? sTA 


HPOS,X 


OAnri pn 

8(J?B E8 


INX 


OAPP ATi C<PP 

809C HLi 5 ICE 


LOA 


CHD 


OAOP on < A 

809F 29 Ki 


Atffi 


Jia/AAA 4 /\Ay\A 

#/.00010000 


OAA i nA AO 

80h1 DO 02 


BNE 


CMPOSlO 


OAAT PA AO 

80ft3 FO 02 


BEQ 


CMPOSU 


OAAC AO I'li 

ffiJHD A9 01 


CMFOSlO LDA 


#1 


OAAT on 7AOO 


punnPi 4 PTA 

CWlSll STA 


lf*OS,X 






80AB AD 51CE 


LDA 


CMD 


a)AE 29 02 


Afffi 


#7.00000010 


80B0 FO 02 


BEQ 


CMP0S12 


8f?B2 A9 01 


LDA 


#1 


80B4 9D 3A88 


ClffOS12 STA 


MPQS.X 


80B7 E8 


INX 


80B8 AD 51CE 


LOA 


CND 


80^ 29 01 


m 





;pointer=2 
.parity 

{Check bS teipg 0 



;pointer=3 



;1 tlipbit 



; check for S b. Nordl. 



;1.5 stopbit 
; branch always 

I Qci bitfr Nl. 



;branch almys 
;then 2 sterol ts 

;i»ifltir=4 

;receiver clock sorce 



;br«tch almys 



fhortii/echo Mxie 



;branch altnys 



;pointer=6 

; receiver intwrupt 

;branch almys 



;pointer=7 

{data teriinal ready 



LUODSJ8ftftO|^A5:iOp'ftAMrtft 



S^Bi 5 O iE! 



13-Feb-86 20S54 RS232^LISTINB Page 3 



80BD 9D 3A% 
80C0 E8 
80C1 AD 5ICE 
SOCA 4A 
80C5 4A 

9XS % WSH 



80CB A2 00 
80CD 18 
80CE BD 3A88 
80D1 7D Zm 
80D4 9D 4488 
80D7 E8 
80D8 EO 09 
^DA 00 Fl 
mC 60 



SOOD AO 00 
80DF A2 00 
80E1 18 
mi BD 0D88 
80E5 79 4488 
80EB 85 52 
80EA E8 
80EB BD 0D8B 
80EE 69 00 
80F0 85 53 
80F2 98 
e0F3 48 
80F4 AO 00 
80F6 Bl 52 
80F8 SS 54 
80FftB8 
80FB Bl 52 
WFD 85 ffi 
80FF AO 04 
8101 A9 69 
8103 91 54 

8105 68 

8106 A8 

8107 E8 

mm m 
mm m m 

Bim DO 04 
9m 60 



mm m m 
8119 it m 

8112 FO 06 
8114 2C 23A0 

8117 C8 

8118 00 F6 
SUA 60 



8116 A9 7E 
811D 85 56 
81 IF A9 85 
8121 85 57 
8123 A2 04 
8125 A9 6E 
8127 90 7E85 



STA 

INX 

LDA 

LSRA 

LSRA 

AND 

STA 

fctMpufe index 

^INDEX im 
CI1P0S13CLE 
LDA 
ADC 
STA 
INX 
CPX 
BNE 
RTS 



cm 

iZOOOOOOll 
N^il 

table 

to 

«POS,X 
MPOS.X 

imi,t 

#9 

C«Pffil3 



;|ointer'4 
;tran!Htitter control 



;set index zero 

; fetch value froi table 
jdmible it 

js&ve in imtei t^le 
; increase pmnter 
; until m«i of table 



sub set inverse flag 'i' on computed locations 
^ j index Y zero 

•0 jindex X zero 

:prepare for add. 
OFFSET, X sfetch low byte offsettable 

umiji jadd index to this value 

imt low byte iii^ pointer 



:suD se 
SETINV LDY 
LDX 

^INV2 CLC 
LDA 
ADC 
STA 
INX 
LDA 
ADC 
STA 
TYA 
PHA 
LDY 
LDA 
STA 
INY 
\M 
STA 
LDY 
LDA 
STA 
PLA 
TAY 
INX 
INY 
CPY 
BNE 
RTS 



flFFSET,X 
««0 

INDPNT+1 



no 

[INDPNT],Y 
ADPNT 

[INDPNT],Y 

ADPNT+1 

*4 

#'i 

CADPNT],Y 



«10 

^INV2 



; fetch high tytt ofli^table 
;add carry 

;&et high byte index pointer 



; fetch address pointer 



; fourth char«:ter in string 
; inverse f!^ 



; restore VTeg 



;donB all offsets ? 



isub print string pointered by PNT 
PNTQUT LDY lO 

mam lda cpntij 

SES PNTOUTS 

JSR OUT 
INY 

BNE PNT0UT2 
PNTQUTSRIS 

inext contains tm functionst 

la-feic^ 'n' fl^s in fiOOO file 



IO@t aMhofstring 



;b-reci 
j fro* 

km 



LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 



e acia Cfffi it CTL register 
~ variables 



tB000ti2S 
SPNT 

#4 

i'n 

«KK),X 



jrsKt first flag 



LUODSJ8ftftO|^A5:jOp'ftAMrtft 



P^Fa S O S 



________ ^ 





mmiimm 


Pa^ 4 


812A E6 56 


REC0M2 


INC 


SPNT 


812C DO 02 




m. 


REC0M3 


812E E6 57 




INC 


SPNT+1 


8130 AO 00 




LDY 


#0 


8132 Bl 56 




LDA 


[SPNT],Y 


8134 FO 02 




BEQ 


REC0M4 


8136 DO F2 




BNE 


REC0M2 


8138 AO 05 


ffiC0M4 


LDY 


#5 


81 3A A9 6E 




LDA 


fn 


813C 91 56 




STA 


CSPNT],Y 


81 3E A5 57 




LDA 


SPNT+1 


8140 C9 87 




CMP 


#TR03»8 


8142 DO E6 




BNE 


REC0M2 


8144 A5 56 




LDA 


SPNT 


8146 C9 9C 




CMP 


#TR03-l?c255 


8148 DO m 




BNE 


REC0M2 




; recompute CMD ?! CTL register 


814A A2 01 


REC0M5 


LDX 


*1 


81 4C BD 3A88 




LDA 


MPOS.X 


814F 8D 4Dffi 




STA 


TEMP 


8152 A9 03 




LDA 


#3 


8154 38 




SEC 




8155 ED 4D88 




SBC 


TEMP 


8158 A2 04 




LDX 


§4 

ITT 


81 5A 48 




PHA 




815B BD 




LDA 


MPOS.X 


815E 4A 




LSRA 


815F 68 




PLA 




8160 6A 




RORA 




8161 6A 




RORA 




8162 6A 








8163 48 




PHA 




8164 A2 03 




LDX 


#3 


8166 BD WSB 




LDA 


MPOS X 

1 n WW 1 A 


8169 FO 03 




BFP 




01 /.D TO 

□16c X 




SEC 




81 6C BO 01 






RECDM7 


8i6E 18 


pFrnM6 


CLC 




81 6F 68 


RcrnM7 


PI A 

run 




3170 6A 




RORA 




8171 18 








8172 6D 3A88 




ADC 


MPOS 


8175 8D 50CE 




STA 


CTL 


8178 A2 02 


} 


LDX 


#2 


817A BD Zm 




LDA 


MPOS,X 


817D FO 16 




BEQ 


SPE 


817F C9 01 




CMP 


il 


8181 FO 12 




BEQ 


SPE 


8183 09 02 




CMP 


#2 


8185 DO 04 




BNE 


CCI 


8187 A9 03 




LDA 


#3 


8189 DO OA 




BNE 


SPE 


818B C9 03 


CCi 


CMP 


#3 


818D DO 04 




BNE 


CC2 


818F A9 05 




LDA 


#5 


8191 DO 02 




BNE 


SPE 


8193 A9 07 


CC2 


LDA 


•7 


8195 48 


SPE 


PHA 




8196 A2 05 




LDX 


#5 


8198 BD 3A88 




LDA 


MPOS,X 


81 9B 4A 




LSRA 


S19C 68 




PLA 




819D 2A 




ROLA 




819E 2A 




ROLfl 




81 9F 2A 




ROLA 




81A0 A2 08 




LDX 


#8 


81A2 18 




CLC 




81A3 7D 3A88 




ADC 


MPOS.X 


81^ 2A 




ROLA 



;in case 00 found 

; branch always 

; index to 5th pos frcM 00 

jnoraal flag 

; check for end 
jwhen not equal 
;back to loop 
;ilse dwck Im byte 



{Morillenght 



jrec. clock source 



jstopbits 
;branch altiays 

ibwdrate 



!P*rity. 

It ipKial for parity 



ti c 



inqriai/KtK) iode 



;transiitter 
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81A7 2A 
81A8 48 
81 A9 A2 06 
81AB BD 3Aa8 
81AE FO 05 
81B0 68 
81B1 09 02 
81B3 DO 03 
31 B5 68 
81B6 29 FD 
81B8 48 
81 B9 A2 07 
81BB BD 3A88 
81 BE FO 05 
81C0 68 
81C1 09 01 
81C3 DO 03 
81C5 68 
81C6 29 FE 
81C8 8D 51CE 
81CB 60 



81CC 20 1B80 
81CF 20 DD80 
81 02 AE 4488 
81D5 BD BD87 
81 D8 85 50 
81DA E8 
81 DB BD BD87 
81DE 85 51 
81E0 A9 00 
81E2 m 4388 



81E5 A2 FB 
81E7 A9 82 
81£9 20 0380 
81EC 20 1B80 
81EF 20 DD80 
81F2 A2 7E 
81F4 A9 85 
81F6 20 0380 
81F9 20 0E81 
81FC AD C7CE 
81FF 8D 4E88 
8202 20 12E0 
8205 DO lA 
8207 AD 4E88 
820A CD C7CE 
820D FO F3 
820F AO 04 
8211 Bl SO 
8213 C9 6E 
8215 FO 04 
8217 A9 6E 
8219 DO 02 
821B A9 69 
821D 91 50 

821F SO m 



8221 20 2782 
ffi24 C F981 





ROLA 






PHA 






LSX 


#6 




UA 
BES 


MPOS,X 




PLA 

m 


tXOOOOOOiO 




m 


REC(M9 


REC0M8 


PLA 






AND 


iUlUllOl 


RECfflW 


PHA 


•7 




m 




LSA 


nPQS,X 




no 


RECOHIO 




M 






ORA 


iXOOOOOOOi 




8NE 






> PLA 






AND 


tziuiiiio 


RECOHli STA 


CKD 




RTS 





jrKeiver intnrri^t 



5d^,Uriir»l ready 



'•t ttiiitmtutinmnmiu»i»uimtit 
jflain prograwi starts here 



MAIN 



JSR 
JSR 
LSX 
LOA 
STA 
INX 
LOA 
STA 
LDA 
STA 



ClfOS 

SETINV 

INDEX 

n,i 
m 

Vl.X 
PHT+1 
#0 
VPOS 



;co«pute tables etc. 

sr«et invprsB flag's _ ^ 

fCMpiile ttriftg-aMress baudrate 



5 reset VPOS 



^■^ter ^ loop 

kim LOX 
LDA 
JSR 

m 

UJX 
LOA 
JSR 

mm m 

LDA 
STA 

nAIN3 JSR 
HAIN4 LDA 

rap 

BEfi 
LDY 
LDA 
CHP 
BEB 
LDA 
BNE 

MAINS LDA 
miN6 STA 
BNE 



#STARTSCRit255 
ISTWrSGR»e 
STTtlNB 
CHPOS 
SETINV 
tBD00t<2SS 
IBD00»8 
STRIffi 
PHTOlfT 
SECONDS 
SEC2 
GET 

COHHMDS 

SEC2 

SeCONDS 

HAIN3 
§4 

tPHn,Y 
i'ft 
HAINS 
«'n 
HAIN6 
f'i 

tPNT],Y 
rffiIN2 



5 set up startscreen 



;set seconds flag 
; check pressed key 
;if so, exec end 
;else ... 
;Mait for timeout 

I toggle inverse flag 

;norial 

;set nornal 

jset inverse 

{branch always 



scoifflandhandler; structure aila(*ed 
fro« HaViSoft's Bonitor pfi 

CCMWID JBxec cowandhandler 

I1AIN2 scontimie in lainlcnp 



:frott Havisoi 

bamm jsr 



mi AA 



bmm TAX 



}save coMiavd 



8 



LUODSJ8MO|^A5:iOp' 



~ jS 5 O lE! 







r^e 0 


8228 irf 08 


Lrlr 




822fl rO uB 


Dty 


IVUU! 


822C CT Oy 


Lrlr 


#LIT 

fnl 


omc CA AT 

822t rO 07 


DCt! 


Timi (T 
IvUUl 


8230 Av 69 


1 nA 

LDA 


t 1 


fiHTT on Ten's 

8232 8D 3F82 


PTA 


IvnUUt 




mt 


CCTM 

be ID 


8237 A? 6E 


Tiini'iT 1 nA 

lyOtlt LDA 


i n 


OHTO on TCOO 

8239 8D 3F82 


PTA 

STh 


IvnUDt 


OT¥P Art AJI 

823C m) 04 


xTn LDY 


HA 


OOTr AO 

82ot H7 


err 
rLL 




823F 00 


rtttmnp ppp 

lynwE FCC 


0 


8240 91 50 


5TA 


[PNTj.Y 


m>in HA AeQ4 

8242 20 OEBl 


oSk 


DfcfT/TI IT 

rWlUUl 


m/IlT OA 

8245 8ft 


TVA 
1 AH 




01>l £ A A AA 

8246 hO w 


1 nv 




8248 Dy 2888 


COnHANDi uTr 


mMTADl C V 


on AD TA AT 




C0HHMffi3 


on>i n po 

824D C8 


INY 




O'l P PA A i 

824E CO 06 


LrY 


#6 


82ti0 00 r6 


BNh 




8252 FO OB 


BEQ 


C0MHWD4 


8254 98 


ammz m 




8255 Oh 






QOC/ AA 


T&V 
IHA 




8257 BD 2FaB 






mCA AO 

825fl 48 


QUA 


B25B BD 2cw 


1 flA 






DtlA 

rnft 




UJmHrBW nlo 






'iLF coniinancl 




on /.A An jiTOQ 

8260 AD 4o8B 


Anui r- 1 nA 

uMJt LUH 


vrUb 


8263 C? 08 


PMD 

Lnr 


#0 
»D 


/n / c PA 

8265 FO 25 


Dm 


UjnLrtNU 


nnL~j ctT JI700 

826? EE 4388 


INL 


vrUb 


826h ad 4388 


PriMI CO 1 HA 

Cura.rB LDA 


vrUo 


ooz.n AO 


TAV 
iHl 




826E (3A 


MSI A 




miP A A 

826F AA 


TAV 




8270 18 


UX> 




m"j< on Anoo 

8271 BD 0D8B 


1 nA 


nCCCCT ¥ 

lA-rbtl |A 


POT /I ^Pl Jl Jl QO 

8274 79 4488 


AIV* 

hDC 


Tuncv V 
INDcXiY 


8^77 85 52 


STA 


TliCRDftIT 

IIWPNT 


8279 E8 


INX 




827ft BD 0D88 


t nA 

um 


fuccccr V 


827D 69 00 


Aflf* 

fSSC 


•w 


827F 85 53 


STA 




8281 AO 00 


uy 


#0 


8283 Bl 52 


m 


CINDPNT3,Y 


8285 85 50 


m 


PNT 


8287 C8 


m 




8i'88 Bl 52 


LDA 


[INDPNT],Y 


010A DC C 1 

828A 85 51 


STA 


fW+l 


82SC 60 


COMLFEND RTS 




;end IF cDRwanii 




;VT cofflfliand 




npnn An /!tdo 

828D AD 4388 


COMVT LDA 


VPQS 


8290 FO FA 


les 


CDHLFEND 


onOI PC A TOO 

ffiS2 CI 4388 


DEC 


ms 




JIf 


CONJB 




;end VT coinaand 




IfiS coMand 






mm m 


WOS 


829B AA 


m 




829C BD 3Ae8 


m 
m 


HPOS.X 


829F FO 09 


CWBSEND 


82A! BE mS 


SEC 


HPQS.X 



;set inverse 

;set naraal 

;code for LDA t 

;in inverse node 

; restore comsand 
•jset index zero 
;find cowand 

found 
; continue search 
;6 available coMtands 
jif not on end 
jelse return to lainloap 



; check possibility 
;fir Mjve 



5*2 



{Check possibility 
fMhM t&im to zero 

{coRtinye etsMtere 



; fetch current V pos 
;use as index 
5 fetch current H pos 
;no Mvewnt possible 
;else decrease allDMRi 



E^B 5 a s 



8465 206D657373 
e46A 6167650D0A 
846F 2020202020 
8474 4261636B73 
8479 7061636520 
847E 6F72204354 
8483 4C2048203A 
8488 206C656674 
848D ODOA 
848F 486F72697A 
8494 6F6E74616C 
8499 2074616220 
849E 6F72204354 
84A3 4C2049203A 
84A8 2072696768 
84AD 740D0A 
84B0 2020202020 
84B5 20 

84B6 4C696E6566 
84BB 656564206F 
84C0 722043544C 
84C5 204A203A20 
84CA 646F776E0D 
84CF OA 

84D0 2020566572 
84D5 746963616C 
84DA 2074616220 
84DF 6F72204354 
84E4 4C204B203A 
84E9 2075700D0A 
84EE 2020202020 
84F3 2020202020 
84F8 20 

84F9 2020202020 
84FE 2020202020 

8503 20 

8504 51203A2065 
8509 7869742074 
850E 6869732075 
8513 74696C6974 
8518 790D0A0A 
85 IC 456E746572 
8521 20616E7920 
8526 6B65792074 
852B 6F20636F6E 
8530 746%E7565 
8535 FF 



FCC 
FCC 



FEE 



FCC 
FCC 



FCC 



SP,SP,SP,SP,SP 

'Backspace or CIL H : left', 13,10 



'Horizontal tab or CTL I i 



SP,SP,SP,SP,SP,SP 
Linefeed or CTL J : dowi',13,10 



SP.SP, 'Vertical tab or CTL K : up ',13, 10 



FCC SP,SP,SP,SP,SP,SP,SP,SP,SP,SP,SP 

FCC SP,SP,8P,8P,SP,SP,SP,SP,SP,SP,SP 

FCC Q s exit this utility ',13,10, 10 

FCC 'Enter any key to continue' 



FCC fFF 



jend-of-file Barker 



8536 1401155361 
853B 7665206375 
8540 7272656E74 
8545 2076616C75 
854A 6573206F6E 
854F 206469736B 
3554 203F202859 
8559 2F4E2920FF 



855E 5341564520 
8563 533A525332 
8568 33322E4441 
856D 5420434535 
8572 302C434^ 
8577 3100 



: conf i raati on-iaessage 

m FK FB,l,21,'&ve cirrent values oi disk ? <V/N) ',IF 



:D0S65 couand 

SCOH FCC 'SAVE S!RS232.I)AT CE50,CES1%« 



cursor re-po5itionini 



li» l^iliMW^ iffll FCC FB 



ning 



IFF 



ibaudrate 
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857E 
8583 



858D 
858E 
8593 
8598 
B59D 
ffiA2 
85A7 
85AC 
85B0 
35B5 
85BA 
85BE 
85C3 
85C8 
ffiC9 
85CE 
85D3 
85D4 
85D9 
85DE 
85DF 
85E4 
85E9 
85EB 
85F0 
85F5 
85F7 
35FC 
8601 
8603 
8608 
860D 
860F 
8614 
8619 
8616 
8620 
8625 
8627 
862C 
8631 
8633 
8638 
863D 

8640 
8645 
8649 
864E 
8652 
8657 
8656 

mo 

8664 
8669 
866E 
8673 
8678 
8679 
867E 
8683 
8685 
868A 
868F 
8691 



1417031B6E 
4578746572 
6E616C1B6E 

00 

1420031B6E 

35301B6E00 

1423031B6E 

37351B6E00 

1426031B6E 

3130392E39 

321B6E00 

142D031B6E 

3133352E35 

381B6E00 

1434031B6E 

3135301^ 

(XI 

1438031B6E 
3330301B6E 
00 

143C031B6E 
3630301BfiE 

00 

1417041B6E 
313230301B 
6E00 

141C041B6E 
313830301B 

6E00 

1421041B6E 
323430301B 
6E00 

1426041B6E 
333630301B 

6E00 

142B041B6E 
343830301B 
6E00 

1430041B6E 
373230301B 

6E00 

1435041B6E 
393630301B 
6EO0 

143A041B6E 
3139323030 
1B6E00 

1417051B6E 

351B6E00 

1419051B6E 

361B6E00 

141B051B6E 

371B6EO0 

141D051B6E 

mtmm 

1417061B6E 
4E6F1B6E00 
141A061B6E 
4F64641B6E 

00 

141E061B6E 
457665^11 

6E00 

1423061B6E 
4D61726B1B 
6E00 

142806166E 
S37061636S 



BDOO FCC FB,23,3,ESC,'nE){ternal',ESC,'n',0 

BDOl FCC FB,32,3,ESC,'n50',ESC,'n',0 
BD02 FCC FB,35,3,ESC,'n75',ESC,'n',0 
BD03 FCC FB,38,3,ESC,'nl09.92',ESC,'n',0 

BD04 FCC FB,45,3,KC,'nl35.58',E9C,*n',« 

BD05 FCC FB,52,3,ESC, 'nl50' ,ESC, 'n' ,0 

tm FCC FB,5i(,5,ESC,'nS»',E9E/n',0 

BD07 FCC FB,60,3,ESC,'n600',ESC,'n',0 

BD08 FO: FB,23,4,ESC,'nl200',ESC,'n*,0 

BD09 FCC FB,28,4,ESC,'nl800'»ESC»'n',0 

BDOA FCC Ft,^,4,|SD'j 'n2400' 'ft* ,0 

FB,^,4,ESC, 'ti3600' ,ESC, n ' ,0 

t 

FB,43,4,^, •n«0©',E8C,'n',0 
FB,48,4,ESC, 'n7200' ,Effi, 'n' ,0 
FB,SS,4,fSC, -trnm' ,ESC, 'ft • ,0 
FB,58,4,ESC, 'nl9200' ,ESC, 'n ' ,0 

FB,23,5,ESC, n5',ESC,'n',0 
FB,25,5,ESC,'n6',ESC,'n',0 
FB,27,5,ESC,'n7',ESC,'n',0 
FB,29,5,ESC,'n8',ESC,'n',0 

FCC m^ii^m^M>*^t*ii'^ 

Pm FCC FB,26,6,ESC, 'nftM * ,ESC, 'n ' ,0 

PAEV FCC FB,30,6,ESC,'r£ven',ESC,'n',0 

PftHA FCC FB,35,6iESC,'lf»ferr,iSD,'n',0 

PASP FCC FB,40,6,Ea:,'n%»ace',ESC,'n',0 



FCC 
BDiX; FCC 
BDOD FCC 
BDOE FCC 
BDOF FCC 

SHordlenqth 

WL05 FCC 

WL06 FCC 
WL07 FCC 
H08 FCC 



D S 
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:stopbit5 

869E 1417071B6E STOl FCC FB,23,7,ESC,'nr,ESC,'n',0 

86A3 311B6E00 

86A7 1419(i71B6E STIS FCC FB,25,7,BC,'ni.5',EiC,'n',fl 

86AC 312E351B6E 
86B1 00 

86B2 141D071B6E ST02 FCC FB,29,7,ESC,'n2',ESC,'n',0 

mj mtmo 

sreceiver clock 

1417091B6E tm FCC FB,23,9,ESC, 'internal ' 'n ' ,0 
86C0 4578746572 

8&C5 (£6mim. 

86CA 00 

86CB 1420091B6E RCIN FCC FB,32,9,ra:,*nIntemil^^t'n%0 
86D0 496E746572 
86D5 6E616C1B6E 
36DA 00 

: receiver mode 

86DB 14170A1B6E Fm FCC FB,23,10,ESC,'nNorial',ESC,'n',0 
86E0 4E6F726D61 
86E5 6C1B6E00 

86E9 141E0A1B6E RMEC FCC FB,30,10,ESC,'nEcln)',ESC,'n',0 
86EE 4S63686F1B 
86F3 6E00 

; receiver interrupt 
86F5 14170B1B6E RIEN FCC ^,23,li,ES:,'nBi^l«t' A'n',0 

86Ffi 456E61626C 
86FF 65641B6E00 

8704 141F0B1B6E RIDI FCC FB,31,ll,ESC,'nDi5abled',ESC,'n',0 
8709 4469736162 
a70E 6C65641B6E 

8713 00 

;data terninal ready 

8714 14170C166E DTRH FCC FB,23,12,ESC,'td)isal)led (OTR hi(^r ,EK,'n',0 

8719 4469736162 
871E 6C65642028 
8723 4454522068 
8728 6967682918 
372D 6E00 

872F 142B0C1B6E DTK. FCC 
8734 456E61626C 
8739 6564202844 
873E 5452206C6F 
8743 77291B6E00 

itransait 

8748 14170F1B6E TWO FCC 
874D 4469736162 
8752 6C65642020 
8757 2020486967 
875C 6820204F66 
8761 661B6E0O 

8765 1417101B6E TMl FCC 
876A 456E61626C 
876F 6564202020 
8774 20204C6F77 
8779 2020204F6E 
B77E 1B6E00 

8781 14171 11B6E im FCC 
8786 4469736162 
878B 6C65642020 
8790 20204C6F77 
8795 2020204F6E 
879A 1B6E0O 

879D 1417121B6E TR03 FCC 
87A2 4469736162 
87A7 6C65642020 
87AC 20204C6F77 
87B1 2020204272 
87B6 65616B1B6E 



FB,43,i2,E%, 'nEnid)led (DTR Ion) ' ,ESC, 'n ' ,0 



FB,23,15,ES:,'nDisable(i High Off ',ESC,'n',0 



FB,23,i6,ESC,'nEi»ble{i ]m fln',ESC,'n't# 



FB,23,17,ESC,'n0isabled Lom On'4^,'11',0 



FB,23,18,ESC,'nDisabled Lom Break', ESC, 'n',0 
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87BB 00 



87BD 7E85 
87BF 8E85 
87C1 9885 
87C3 A285 
87C5 B085 
87C7 BE85 
87C9 C985 
87CB D485 
87CD DF85 
87CF EB85 
87D1 F785 
87D3 0386 
87D5 0F86 
87D7 1B86 
87D9 2786 
87DB 3386 

87DD 4086 
87DF 4986 
87E1 5286 
87E3 m6 

87E5 6486 
87E7 6E86 
87E9 7986 
87EB 8586 



87EF 9E86 
87F1 A786 
8F3 B286 

87F5 BB86 
87F7 CB86 

87F9 0B86 

87FF 0487 

8801 1487 
mZ 2F87 

M05 4887 
8807 6587 
8809 8187 
880B 9D87 



880D BD87 
880F DD87 
8811 E587 
mn EF87 
8815 F587 
8817 F987 
8819 FD87 
mS 0188 

mi ms 



FCC *FF 



5efHf-of--f ile tarker 



;addres5table 
baudrate 



FDB 
FOB 

FDB 
;wordlenath 
V2 FDB 
FOB 
FDB 
FDB 

arity 



FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 

m 

FOB 
FDB 

m 

FOB BDOC 



BD02 
BD03 
BD04 
BD05 
BD06 
BD07 



BD09 



0§' 



FDB 
FOB 

FDB 
FDB 



BODE 
BDOF 

NL05 

M.07 
NLOe 

PAND 

fm 

PAEV 



sstopbits 
V4 FD 



STOl 
ST15 
ST02 



FDB 

jreceivBT deck 
V5 FDB RCEX 
FDB RCIN 
: receiver node 

V6 FDB RMNO 
FDB RMEC 
J receiver interrupt 
V7 FDB RIEN 
FDB RIDI 
;data terminal ready 



V8 FDB 
FDB 
jtransait 
W FDB 
FDB 
FDB 
FDB 



DTRH 
DTRL 

TROO 
TROl 
TR02 

TTO3 



joffset table for screen strings 

#FSET FDB VI ^ ^ 

FDB V2 

FDB V3 

FDB V4 

FDB V5 

FDB % 

FDB V7 

FDB V8 

FDB m 



; table MAX; max uvenents par subcoM 

881F OF03040201 MAX FCC 15,3,4,2,1,1,1,1,3 

8824 91010103 i i i « i i i i 

t 



tmmmss 'de mm imep 



FollmtlM Mwitei^ of DE fiS02 KEWER 
are vrawmvi 



NR. IS my 1981 

NR. 17 flU6 1981 

NR. 18 KT 1981 

NR. 19 DEC mi 

NR. 22 AUG 1982 

NR. 23 OCT 1982 

NR. 24 DEC mi 

NR. 25 FEB 1983 

NR. 26 NflV 1983 

NR. 27 nUG 1983 

NR. 28 OCT 1983 

NR. 29 DEC 1983 



NR. 30 FEB 1984 

NR. 31 APR 1984 

NR. 32 JIM 1984 

NR. 33 HJ6 19B4 

NR. 34 OCT 1984 

NR. 35 DEC 19B4 

NR. 36 FEB 1985 

NR. 37 0>R 1985 

NR. 38 JUN 1985 

NR. 39 AUG 1985 

NR. 40 OCT 19BS 

NR. 41 m 1985 



Send Hfl. 9,= per edition on euro- 
cheque to Mr. Jonn van Sprang, Tulp 71, 
2925 EW Kriopen a/d IJssel. ffce Nether- 
lands. Si X backnuabers of 1984 or I9K 
only Hfl, i5,= " 
The seci^tary, Sert Klein, irfti 
you the t»cknyabers. 



PRICES OF THE MM6S/D0Sfi5 SVSTEN 



- mm M3N65 
WNURL D0S65 
mm. EDITOR 

DESCRIPTION OF THE HRRDHflRE 

This all. about 110 pages FL.50 = 

- 2764 KONhOR EPSON a.35 = 

- 2732 CHAR. GENERATOR EPRDN FL. 25, = 

- DISEHE HITH I.E. NICRO-ADE, 

FORM EDITOR, UTILITIES a. 15,= 

- FDC-^MRD FL50,= 

- SOURCE N0N65 FL25,= 

- SOURCE D0S65 R..25,= 

- SOURCE UTILITIES R..25,= 
All text in Dutch language. He are hard 
Norking on translations into English. 
Uant infortations (English)? Please sk 
the editorial office. 

All prices are Nithout HFL. 10, ^ trms" 
ports. 

Only for eeebers of our club. 

Send your orders to: 

E.J.M. Visschedijk <Havisoft) 

Drakesteyn 299 

7608 TRALMELO 

The Netherlands 

Payicnts on eurocheqM, In't forget the 
nuuer and your sigiwNfe. 
If not paying Nith mv^ieifm IR. 7,98 
extra trasfers! 



m IT 
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8828 08(m)A0B48 CffilTABLE FCC 
882D 51 



BS,HT,LF,VT,'HQ' 



882E 9782 
^30 AA82 
8832 5F82 
ffl34 8C82 
88% BD82 



883A 
ffl43 
8844 
884D 
884E 



iCOBMiand address table 
COfWDD FDB COMBS-1 



FDB 
FDB 
FDB 
FOB 

m 



cmHT-i 

COMLF-l 
COHVT-1 
COMH-1 
GQHB-l 



;in-prograiMi variables 



tIPOS 
VPOS 
INDEX 
TEMP 
SEC2 



RES 
RES 
RES 
RES 
RES 



;end RS232-SET 
' END 



;actual (hor.) position in subcoM 
jactual position (vertical) ".' 
j index table 
; temporary use 
jflagbyte seconds 



. , ,1 

VERVflNGING 6502 DOOR 65C02 . 
IN ELEKTUUR'S JUNIOR COMP. 
==> (== 

Jan VerniirimBn 
. . Telf! 02990 - 21739 

De vervanaing van de 6502-proces50 r door een 65C02 is mij niet zonder meer moge- 
lijk gebleken. Problemen t raden op bij: 

1 : De kloksiqnalen (0, 1 en 2) 

2 : De fan-out 

3 : Het RflM-RQ signaal 

1 ! De klok 0 inganq van de ROCKWELL 65C02 blijkt niet geheel compatible met de 

6502 versie. Daar van de interne osci lator aebruik qemaakt wordt (kristal 
direkt aan de klok 0 aangesloten) is het voltage van de 0 naar 1 overgang 
van deze ingang bepalend voor de hoae en laae rase van klok 2 en klok 1. 
Het gevolg was bij mij: klok 2 hoog 630 nanoseconden en (dus) klok 2 laag 
370 nanoseconden welke waarden ver buiten de toleranties liggen (430 tot 
570 nanoseconden). Dit had tot gevolg dat de 65C02 soms plotseling over- 
schakelde op lagere of zelfs op hogere klokf requent ies, kennelijk met 370 
nanoseconden als basis. 

Door een weestand van 68 K Ohm van de ingang van klok 0 naar aarde te leg- 
gen (uitgezocht uiteraard met een scoop en een instelpotmeter) werden de 
tijden normaal: 520 nanoseconden hoog, 480 laag. Echter, nu weigerde soms 
(en misschien eerder ook al) de oscillator te starten. Dit werd verholpen 
door een weerstand van 1,5 M Ohm over het kristal te plaatsen. De fasever- 
houding van klok 2 werd hierdoor nauwelijk beinvloed (werd 518 om 482 nano- 
seconden). Een extra oscillator zou eenvoudiger geweest zijn. 

2 ! De fan-out van de CMOS processors bedraagt 1, die van de 6502 bedraagt 2. 

Dit probleem is simpelweg op te lossen door ervoor te zorgen dat alls TTL- 
IC's van het LS-type zijn. De geheugen-IC s en de PIfl zijn MOS-IC's en doen 
verhoudingsgewi js niet mee aan st roomaf name. Wilt U tocn, net als iK, de 
PIfl vervangen door zijn CMOS-versie, houdt dan rekening met extra pro bie- 
men zoals een niet meer werkende <opnieuw af te stel4«n> ;ue»»sette-in««pfa- 

3 ! Het RflM-RW signaal. . ^ _ . ,^ u—.*.— 

Zorg dat de pull-up weerstand R5 op de hoofdpnnt 470 Oh« IB zoals bescwre- 
ven in deel 3 JUNIOR-computerboek, bladzijde 36. 

Voor ik aan het RfiM-RW signaal ging sleutelen heb ik de Grounds van de proces- 
sor, de PIfi en de Eprom op de basiskaart met aP^rtelijnen aan aarde verbonden 
(pin 16 a+c connector). Dit gaf een merkbare verbetering vaa^lg^cont role-signa- 
len volgens waarneming met de oscil Ipscoop. Na wijziging M ^bxk dit laten 
zitten. Of deze extra bedrading noodzakelijk geweest is heb ik verder met nage 
gaan. 

nfTf--D-DS 6502 vervangen door een (Rockwell) CMOS-versie en U heef t geen scoop 
Sm het klokiignaal te iont?oleren: bouw een opsteekprintje^Ae| een externe os- 
cillator en breng wijzigingen aan volgens punt 2 en eventueel 3. 
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iWMitfttititmtttitiiiiliitm 

I mUE FILES OPGESUiSN * 

^ DQDR t « 

^ FMWK WMSHHBE * 

fitHiiiiiin i mummtmi i nHHHiHuinimiHH i mH 

leeft U zich ooit wl eens afqevrawd wat er precies gebeurd, 
lis je een prograiM 'saved' or 'load'? En Haaroi nn prograi- 
la, hoe klein ook, linstens tiee sectoren op een diskette in 
leslag rwMt? Nou, ik nbI! Haar ik Meet nu hoe, en Milkt df 
ecten is. Dus laat ik het U taar snel uitleggen ... 
It uit te leggen Haarot een prograaaa ainstens 2 sectoren in- 
leeat, toet ik U eerst een speciale sector uitleggen die bij 
len prograau hoort: de Track/Sector List. Dit is de eirste 
iector van een prograaaa. Hierin staat opgeslagen Nelke secto- 
tn op twlke track gebruikt. Neestal is er taar i zo'n sector 
laar als het prograaM eeer dan 122 data sectoren innee«t, zal 
T nog een Track/Sector List sector zijn. 
le Track/Sector List sector is dus de eerste sector van een 
irograiuu, en hierna Morden de data sectoren opgeslagen. Dus 
Is je een heel kort prograMa hebt, zal het toch einstens 
i*ee sectoren inneaen! 

lat staat er nu alleeaal in een Track/Sector List? Oat stMt 
Iff inter it «ni talKl NMnmiywl 

till mm t 

00 Met gebruikt. 

01 Hier staat het tracknuaaer, als er nog een Track/ 
Sector List sector nodig is, dus als hit pragrMM 
ieer dan 123 sectoren in beslag neeet. 

Hier staat het sectomuaaer van de volgiMie Track/ 
Sector List sector (als die er is). 
03-$04 Niet gebruikt. 

0S-$06 Hier staat welke de eerste data sector is, die in 
deze Track/Sector List staat. flls hier dus $00/$00 
staat, dan is de eerste sector in deze Track/Sector 
List de eerste data Nctor van htt prMriMM. 

07-$0B Niet gebruikt. 

0C-iEH} Track- en sertermtaaer van de wrstve^iente data 
sector. 

QE-IOF Track- en scdormiaiBr van de vslgende data sacter. 

i I 
V V 

fE-$FF Track- en sectomuaaer van de volgende data sector. 
Als er op een van die Track/Sector-paren fO6/$0O staat, dan 
ijn er met aeer sectoren !) 

aar hoe zijn de prograaaa's nu verder opgeslagen? We Heten 
u, dat de eerste sector de Track/Sector List wmk^r is. 
^ beginnen aet een Basic-file : 

en Basic-prograMa begint op $0800, dus het startadres hoeft 
OS niet op te slaan. De lengte van het prograaaa aoet DOS 
chter Mel opslaan, en dat geoeurt op byte 0 en byte 1. In 
yte 0 staat de 'low byte' en in byte 1 de 'high iwte'. Stel 
at er op byte 0 de waarde $03 staat en op bvte 1 $02, dan is 
e lengte dus $0203 bytes lang, d. i. deciaaal SIS. De rest van 
e sector is dan opgevuld aet hexadeciaale grtallm die 
oaaando's, reaelnuaaers, enz. voorstellen. 
en tHeede de Integer-Basic file : 

it is bijna hetzelfde als bij de Basic file, alleen bij de 
egelnuaaer zit het lets anders. 
en derde de aachinetaal file : 

n byte 0 en byte 1 staat het startadres, op byte 2 en 3 staat 
e lengte van de aachinetaal file. De rest is opgevuld act het 
rooraaaa in de sector, 
in tenslotte de text file : 

It is de genakkelijkstt. De text van mm file staat in hexa- 



diciaalt cote, an elk atuk takit is een zogenaaade record. Een re- 
cord is bijvoorfaeeld een regel uit een tekst (net zoalt bij de£t 
takit, tiki rtaal li Mn racord). Os racords zijn onderling ge- 
scheiten door $aD (return-code). Het einte van HM ttxtfilt Mt«gt 
un^^even door een $00 (break-code). 

flls je een prograaaa 'runt' of 'load' zoekt K3S eerst in de VTOC, 
tt«ar te Citalog argent ttut. Dan ludt hij de eerste Catalog 
sector in en zoekt naar de opgegeven naaa. Rls hij die niet vinden 
kan, kijkt hij of er nog aacr Catalog sectoren zijn en zoekt die 
gok af naar de naaa. Kan DOS de naaa niet vinden, dan volgt de 
foutaelding : File Not Found. 

Vindt DOS de naaa echter Hel, dan zorgt hij dat het prograaaa ge- 
ladcn en tvantuecl uitgcvoerd Nordt d.a.v. ingebouHde routines' 
flls een prograaaa opgeslagen aoet Horden zal Dos eerst in ce 
Catalog kijktn of de file aisschien ae' lockad' is. Is dit nitt het 
geval, dan zal DOS het prooraaaa opsiaan. 
Sij atn tcxtfile wordt de rile eerst geopend. Is de file niet aan- 
Hezig, dan aaakt DOS hea als een 1 sector lang prograaaa zcncer 

nhoud. All de file Ntl aamiezig it, dan Nordt (taoa g«opend, en 

unnen er data gelezen of geschreven mrden. 



ELEKiarS OCTOPUS I- EC) DISKETTES BWIlfiBLE 
HiM t» oiter ya«r diskettes : 

1. check your aariiership of our club 

2. tend 11 im diskettes, with stickers, to t;ie foIloMing 
address : 

Editorial Office DE ^2 KEM£RS 
c/o Uillea l. van Pelt 
Jacob Jordaensstraat 15 
2923 CK KriKten a.d. IJssel 
The Netherlands 
(Phone : 01807 - 19881) 

3. sand curochcque to the aaount of HFl. 125,== to pay 10 discs 
(1 is ffi#i no retanqnrti needed j 

He only cm Hrlte discs ^r the Ck^«{MS on SIPI # trices. 



VRflAG EH MNBOD 



To koopt Uegens overschakeling op PC een 6502 uP-systeea (7 eu- 
roxaarten) in prof. I9" rack incl. voeding + 1 » BASF 
6106 drive, alles aet zeer uitgebreide docuaentatie. 
Vr.pr. IFl. 500,=. Bijbehorende Terainal Beehive B-I50 
Vr.pr. HFl. 400,=. Voor de hardware-specialist nog an- 
dere zaken in aanbouM t.e.a.b. 
Tel.: 071-142488 (na 14,00 uur). P. Hieberneit. 

6evr. : overdruk van het artikel "ft Coaputerchess Tutorial" 
van N.D. Whaland in BYTE vol. 3 biz, 168 - Ifll, okt 71 
Opsturen naar het redaktie-adres s.v.p. 

Te koop: Twee "Tuente'-inbouw aono recorders zonder voeding ge- 
bruikt bij de Elektuur JUNIOR-coaputer voor Siet aarma- 
ken van bandjes voor de cassette-service van de redak- 
tie. T.e.a.b. T«l.! mm - 19IB1 H.L. vm 



m DE EDflKTI E 

Indian U van plan bent oude coaputertijdschriften meq te gooien, 
bedenk dan dat de redaktie er nog veel aan heeft. Stuur de over- 
bodige tijdschriften op naar tet redaktie-adres. Wij zijn er erg 
blij lee. 

Uegens gebrek aan tijd verzoeken Me ook Basicode-opnaaen naar de 
redaktie ep te sturen. Ook daaMi ta^pt \tmbt 



n 
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1 REM CaMPETITIESTANDEN 

3 REM BY GERARD KEET >v • 

5 REM R3DENBURG N3 . 3 >; - - 

7 REM 1965BL HEEMSKERK 

10 G0T3 20010 

3000 REM INPUT TEAMNil|M^ .' 
3010 PRiNTt INPUT "TEA^f IS 

3020 IF LEN(Z£)=12 THEN 3090 

3030 IF LEN(ZS)>12 THEN 308 0 

3040 z$sz$+" "lejftif His^C . 

308 0 Z$=LEFT$(«JSii:.t2> f- 

309 0 RETURN * , " ■ - 

3110 INPUT "KLASSENR: "J SIC 0) ^ ; 

3120 IF LEN(SI(0))>5 THEN 3110 

313b IF LEf4(ftsrO))=5 THEN 319 0 

3140 S£( 0) = SS( 0) + " "tmiZ 3130 

3190 RETURN , , .,„..;„/ " . . T - ' ■ 

5000 REM iNtTl'^fi^w timJULm NAAR mpmmwftm 

5010 INPUT "ZEKER WETEN DAT JE WILT INITI M-1 SEREN <J/N>» "rKS 

5015 IF K$<>"J" THEN 509 0 

5020 I»'Ai fiX'*f't=®««^>fii'i#'fl»l5|^T' 

509 0 RETURN r r > 

6000 REM TEAM WIJZIGEN ' 

6010 G0SUB 301 OJ REM INPUt TEAMN^kAM 

6060 1=1 

6070 IF S£(I)=Z$ THEN 6110 

6080 I»I*KIF- I« = AT THEN 6070 , 

6100 PRINT: PRINT "TEAM NIET IN KL ASSE"» 00 TO 6150 

6110 INPUT "GESPEELD: ••»S<I.l) 

6120 li*4PUT PUr^TENt «*Stf#'2) 

6130 INPUT •• VaaR: "JS(I*3) 

6140 INPUT TEGEN: ••JSd*^) 

6150 RETURN 

7000 REM TEAM VERWIJDEREN 

7010 casus 3010: REM INPUT TEAMNAAM . 
7020 1=1 

7030 IF S$(I) = Z$ THEN 7060 

7040 I = I+l:IF I< = AT THEN 7030 ^' ' * ' 

7050 PRINT: PRINT "TEAM NIET IN KLASSE":GaT0 7 09 0 

7060 F3R J=I T3 AT- 1 : S$< J) = S${ J+ 1) « F0R M 1 TO 4: SC J#L) = SC J+ U)*.? 

707 0 NEXT L:NEXT J V v.^'' 

708 0 S$<AT)="000000000000"tpR W ^|ltl^i,i[f«3*NEXT t|l^^r| 

709 0 RETURN k '. v ^::.^ ..:. ; • 
8000 REM TEAM T0EVaEGEN . V • 

8 010 I f AT<i2 TrtlN SOtJO :' 
8020 PRINT: PRINT "GEEN RUIMTE mEUW TE^"»G0T0 8090 . . 
8 030 GaSUB 3010: REM INPUT TEAWNAA** 

8 032 NG=TRUE 

8 035 F3R 1=1 Ta AT 

8 040 IF SS( I )<>Zf THEN 8 045 . ■ ... 

8 043 NG= FALSE 
8045 NEXT 

8 050 IF NG THEN 8 08 0 

BOiO PRINT: PRINT "TEWi BESTAAT /4.'»:(1>T0 8 09 0 
ECmO AT=AT+ l: SSC AT) = Z$ 
8 09 0 RETURN 
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10000 REM LEES KLASSE IN TABELLEN S EN S$ 

10010 SKL=KL»F0R 1=1 10 121 SSC I )» ""I FBR J= 1 T0 4»S<I*J> = 0 

10020 NEXT J! NEXT I 
10070 KL=KL + 5:AT=1 

10090 Wm 1 = 1 T0 12»SS(AT) = SS(AT) + CHR$<PEEK(KL)):KL=KL+1:NEXT I 
10130 IF SS(AT)= "000000000000" THEN 10300 

10135 H$="":F3R 1=1 T0 1 0: H$=H $+ CHR$< PEEK( KL) ) :KL=KL+ 1 S N EX T I 

10170 GS=LEFT$CH$* 2)1 P«aMl DSfHS» 3* tit Vfs*Ml DtCHS* S* 3>J Tlam W 3) 

1 0 18 0 S( AT, 1 ) = VAL C GS) I S( AT, 2) = VAL ( P$) : S( AT* 3) = VALC V$> » S< AT* 4) = V^< T,$> 

1019 0 AT=AT+l:IF AT< 1 3 THEN 1009 0 

10300 AT=AT- 1»KL = SKL: AA=2*< AT- I J 

10310 RETURN 

11000 REM Z0EK KLASSE IN BUFFER 
llOlO 1=0 

1 1 020 H£= "": F3R K= 0 T3 4: H $=H S^ONIRSC PlIKC AI ♦I + C D+ B*( C*SI> 
11030 IF H$=S$(0) THEN 11100 
11040 l«l> H tF t *3lS THEN 11020 
11050 IF NWKL THEN 11080 

11060 PRINT: PRINT: PRINT "KLASSE BESTAAT NI ET": PRIN T 
Htl!0 mn Ra| T0 400iHI5<T 
11080 NG=TRUE 
1109 0 G0T0 11190 

11100 NG»FALSEtKL=Al +I*f D+B*C C+E)) 

11190 RETURN 

12000 REM SCHRIJF KLASSE NAAR BUFFER 
12010 Wf=SSCO) 

12020 Fan J= 1 T3 5:P3KE KL , ASC( H S) : H $= RI GH TS( H 5- J ) : KL = KL+ 1 : NEX T 4 
12030 F0R 1=1 T0 AT:H$=S$(I>: F0R J= 1 T0 12:paKE KL*ASC(H$) 
12060 H$=RIGHT$(H$#12-J):KL=KL+1:NEXT J 
12070 G£=STR$( SC I, 1 ) ) : P$= STR£( S(I , 2) ) : V$= STR£( SCI > 3) ) : T$* STRSC S.« I # 4) > 
12080 G$=RIGHTS(G$#LEN<G$)-1):PS=RIGHT$(F$#LEN(PS)- 1) 
12100 \^SamGrtTSfVS*LtNtVS>-lMTfsRIiHTS<TJ#LEN<m^ 
12300 IF LEN(G£) = 2 THEN 12320 : . 

12310 G$="0"+G$: G0T0 12300 
12320 IF LEN(PS)a2 THEN 12340 
12330 F£= "0"+P£: G3T3 12320 
12340 IF LEN<V£) = 3 THEN 12360 

1235© Vl^*»0«*+V$: G0T0 12340 . ! , , 

12360 IF LEN{T£) = 3 THEN 12380 

12370 T$="0"+T£: GaT0 12360 

12380 H$=GS+P$+Vf+fS - 

1239 0 F3R J= 1 T3 10 

12400 P3KE KL* ASC(H£) :H£=RI GHT$(H$, 1 0- J) :KL=KL+ l:N EXT J 
12410 N©(T I 

12 420 IF AT=12 THEN 1248 0 

12430 F0R I = AT-H T0 12:FaR J= 1 Ta 22: P3KE KL» 48 : KL=KL+ 1 : N EX T J:NEXT I 

13000 REM STANDEN PRINTEN 

13010 PRINT CHR£<12)> 

13020 60 SUB 31 10: REM INPUT KLASSE 

13025 PRINT 

13030 WSUB 11 010: REM Z3EK KLASSE IN BUFFER 

13040 IF NG THEN 13280 

13050 G3SUB 10010: REM LEES KLASSE IN TABELLEN S m SS 

13060 F0R 1=1 T0 AT-l:F3R J=I + 1 T3 AT 
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13070 

1308 0 

1309 0 
131 GO 
13110 
13120 
13130 
13132 
13134 
13136 
13140 
13150 
13160 
13170 
131 75 
13200 
13210 
13220 
13232 
13234 
13236 
13238 
1 3240 
13242 
13244 
13250 
13256 
13257 
13258 
13260 
13270 
1328 0 
1 4000 
1 401 0 
14020 
14030 
14032 
14035 
14037 
1 4040 
1 4050 
1 4060 
1 4070 
1409 0 
141 10 
14130 
1 4140 
14150 
14160 
14170 
14180 
14190 
1 4200 
14210 
14230 
14240 



REM STAND BEPALEN 
IF S(I*2)<S(J#2) THEN 13160 
S( I*2)>S< J*2> THEN 13200 
S(I* n>S(J, 1) THEN 13160 
S(I,l)<S(J*n THEN 13200 
S( I* 3)-S< I* 4)<S<J* 3)-S(J* 4) THEN 
S(I,3)-S(T, 4)>S(J* 3i'^mll» 4f* "TMW 



I F 
I F 
I F 
I F 
I F 
I F 
IF 



13160 
f"3g00 



THEN 131#0 



S(I*4)<>0 AND S(J*4)<>0 THEN 13140 
SCI*4)<>0 THEN 13160 
G0Ta 13200 

IF S ( 1 , 3 ) / S < 1 » 4(>x S< J > 3> / S< J » 4) 
G3T0 13200 

H $= S $( I ) : S$( I ) = S$( J ) : S$( J > =H $: REM S**#^r 'SMM » Wm^ 
F0R K= 1 T3 4:H=S(I *K) : S( I * K)sS( J#K) |M4#K)«1I 
NEXT K:REM swap S(I)#S(J) 
NEXT J 
NEXT I 

F3R J= 1 T3 AT: IF J< 1 0 THEN PRINT " "i 

PRINT JITAB(3) Sf f J) f TABC 2S> f r I F SCJ#11*10 THEN PRINT 
PRINT S( J* 1) J TAB( 30) J : I F SCJ>2)<10 THEN FRIMT " "J 
PRINT S( J#2>l TAB<35) J : IF SCJ* 3X100 THEN PRINT " "J 
IF S(J*3)<10 THEN PRINT *• "I 

TAB(38) IF S<J*4><100 THEN PRINT *• ' 

THEN PRINT " "I 



<J/N>: "tKS 



PRINT S( J* 3) I 
IF S( J* 4)< 10 
PRINT S(J*4) 
NEXT J: PRINT 

INPUT "KAMPIBENSINFaRMATI E? 
IF K$<>"J" THEN 13260 
G0SUB 30010: REM KAMPI aENSINF0 

INPUT "NSG EEN KLASSE PRINTEN? <J/N> : "iKS 
IF K$="J" THEM 13010 
RETURN 

REM UITSLAGEN INVaEREN 
PRINT CHRS(12) 

INPUT "KLASSE <*=ST3P> : "I S$( 0> 
IF SS(0) = "*" THEN 14650 
I F LEM ( S$< 0) )> 5 THEN 14020 
IF LBM(S$(0)) = 5 THEN 14040 
S$< 0) = SS( 0) ":G0T0 14035 
G0SUB 11 010: REM Z3EK KLASSE 
THEN 14010 

10010: REM LEES KLASSE IN TABELLEN S EN SI 
"THUIS: "fTStlF Rl GHTSC Tt* 1)= •«*" THEN 1407© 
"JU$:IF RI GHTSC U$, 1)= THEN 1409® 
"iV: INPUT "TEGEN: "il 
tHEM 141 to 
THEN 14160 

14170 



IN INPUTBUFFER 



I F N G 
G3SUB 
INPUT 
INPUT 
INPUT 
IF 
I F 



UIT : 
V03R : 
LEN(TS5* 12 

LEN(TS)< 1 2 



T£=LEFT$(T$, 12): GaT0 
T$=T$+*' **ff^t1S 14130 
IF LEN(U$)=12 THEN 14210 
IFLEN(U$)<12 THEN 14200 
UI=LEFT$<U$* 12) J f0TW 14210 
U$=U$+" ":GaT0 14170 
I = 1 : J= 1 

IF S$<I)*Ti THEN 14^0 

X = I + l:IF I<aAT THEji 14230 
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14260 
142@0 
1429 0 
14310 
14330 
1 4340 
14350 
14960 
14370 

1438 0 

1 439 e 

14400 
14410 
144^6 
1 4430 
14440 
14450 
14460 
14470 

1448 0 

1449 0 
14500 
14510 
14520 
14530 
14540 
1 4550 
14560 
14580 
1 4600 
14610 
14620 
1 4630 
14640 
14650 
1 5000 
15010 
15030 
15040 
15050 
1 5060 
15070 
1508 0 
IS 09 0 
16000 

16Q10 

16030' 

16040 
16050 
16060 
16070 

1608 0 

1609 0 
161 00 
16110 
1 6 1 20 
16130 
16140 
1 61 50 



tHuisTE^ T£ Haas** 



UITTEAM TE HaaG" 



PRINT: PRINT "THUI STEAM NIET IN KL ASSE"X (2 T0 14070 
IF SiCJ)aU$ THEN 14330 
J=J+l:IF J< = AT THEN 1428 0 

PRINT: PRINT "UITTEAM NIET IN KL ASSE": 60 Ta 14070 
IF Sf 1 , 1 ) + 1« a 0^ tH EN 14360 
PRINT: PRINT "GESPEELDE WEDSTRIJDEN 
G0Ta 14070 

I r Sf j» 1 1 + 1< = m THWk i "4^ o 

PRINT: PRINT ••GESPEELDE WEDSTRIJDEN 
G0Ta 1407 0 

t f SCIi 314V*a999 THEM 144SG 

PRINT: PRINT "TaTAAL D0ELPU«TI>i* V0«K fHliltTElNM f I Hit G" 
G0Ta 14070 

IF S( l# 4y + T< = 999 THEN 14450 

PRINT: PRINT "TaTAAL DaELPlWTEN* TE6tJ4 tMOlSfllM TE «§§©«* 
GaTa 14070 

IF S( J* 3y + T«*t9f TMIN l4-«i® 

PRINT: PRINT ••'^TAAL DaELPlNTEN-^aR UITTEAM TE Ha3€»' 
G3T0 14070 

IF s(j# 4>*\/<»9tf mm tmm' 

PRINT: PRINT "TaTAAL D0ELPUNril*''TESiM iJITTll^^ vmM*'- 
GaT3 14070 

SC I , Ija SCI » tl* \t SC J, 1 ) = S( J* 1 > ♦ 1 
S( I * 3) = S( I * 3) + V: S( I , 4) = S( I , 4) + T 
S< J* 3) = S(J# 3> + T: S( J# 4) = S( J» 4) + V 
If v<T THEN 1458 0 
IF V> T THEN 1 4600 
S(I*2) = S(I*2)+1:S(J#2) = S(J>2)+1 
S( J, 2) = S< J# 2)+2: G3T3 14610 
S( I, 2) = S( I » 2) + 2 

INPUT "NaG MEER VaaR DEZE KLASSE? 
IF KSa^J" THIN 14070 

G3SUB 12010: REM SMSUF fCLASSt PiAAR lUFFER 
GaTa 14010 
RETURN 

REM KLASSE VERWIJDEREN 

PRINT CHR$( 12) J : G3SUB 31 10: REM INPUT KLASSE 
GaSUB 11 010: REM Z0EK KLASSE IN BUFFER 
IF NG THEN 1 5 090 

INPUT "ZEKER WETEN DAT DEZE KLASSE WEG M0ET? 
1 F K f «> ♦•J *• TH EN 1 509 0 

F3R I = KL T3 LA-F:P0KE 1 * ( PEEK ( I + F) ) : N EX T 1 
F3R I = LA+1-F Ta LA+l:PaKE I# 48:NEXT I 
RETURN 

REM KLASSE WIJZI GEN 

PRINT CHRS( 12)1 : G3 SUB 31 10: REM I • PUT KLASSE 
llOlDtREW fatK KLASSE IN ftUFtER 

G0T3 16010 

10010: REM LEES KLASSE IN TABELLEN S EN 
CHRSC lt>f 'ICLASSEt Sit 0) t PRINTS PRINT 

•'* KEUZESCHERM WIJZI GEN *•' 

♦ •• 

KLASSENR 
TEAM TaEV3EGEN 
TEAM VERWIJDEREN 
TEAM WIJZI GEN 

STap 



GdT3 1 46 1 0 



< J/N> 



'IKS 



< J/N> 



iKS 



eastTB 

IF NG 
G3SUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRTNT 
PRINT 
PRINT 
PRIOT 



S$ 



••♦ 

••♦ 
••* 



1 

2 
3 
4 
5 



*' 
*' 
*' 
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16160 PRINTJ INPUT "KEUZE: "J K 
16170 0N K G0SUB 3 1 1 0« 8 01 0« 70 1 0« 601 0 
16180 IF K>=5 THEN 16230 

I61f0 INPUT *'#IDERE KLASSE WIJZIGEN? <J/N>' :"»K$ 

16200 IF KS<>"J" THEN 16060 

16210 G0SUB 12010: REM SCHRIJF KLASSE NAAR BUFFER 
16220 E0T0 1601^ 

16230 G3SUB 12010JREM SCHRIJF KLASSE NAAR BUFFER 

16240 RETURN 

17000 REM KLASSE TaEVaEGEN 
17010 IF PEEKCLA+1-F) = 48 THEN 1 7DS0 

17020 PRINT "GEEN RUIMTE V00R NIEUWE KLASSE": PRINT 
17030 F3R 1=1 T0 500: N EX Tl 00 T0 17250 

1 7050 PRINT CHRSC 1 2> 1 1 INPUT '"KL ASSiMUMM ERC S P0S> t "I SS< 0) 

17052 IF RIGHT$(S$(0)* 1) = "*" 0R LENCS$IO>)»S THEN 17050 

17053 IF LEN<S$<0))=5 THEN 17055 

17054 S$<0>aSSC05*'* "I G0Ti 17053 

17055 NHKL=TRUE: G0SUB 1 1 01 0« REH ZtEK KLASSE IN INPUtBUFFER 

17056 IF NG THEN 17060 

17058 PRINT ••KLftSSl BESTAAT M.": F0RIs 1 T0SOOtN EXTtGa W f 7250 
17060 INPUT "AANTAL TEAMS: AT: I F AT<= 12 THEN 17090' 
17080 PRINT "TEVEEL TEAMS* MAX 12":G0T0 17060 
1709 0 F0R 1= 1 T0 AT 

17100 PRINT "TEAM I ; TABC 8 ) ": "J : I N PUT " "I SSdl •: 
17120 IF RI GHTS(S$(I )* 1) = "*" THEN 17100 
17130 IF LENCS#tI))» !2 TMEN17170 

17140 IF LEN(S${I)) = <12 THEN 17160 . > i 

17150 S${I)=LEFT$CS$(I)* 12): G0 T0 17170 
17160 S$<I ) = SS(I )♦•• G0T3 17130 
1 71 70 NEXT I 
1718 0 1 = 0 

17190 IF PEe(CAI + I*CD+B*(C+E)))=48 THEN 17210 

1 7200 1 = 1+ 1: G3T0 1 7190 
17210 KL=AI + I*< D+B*( C+E) ): G0SUB 12010:REM SCHRIJF KLASSE NAAR BUFFER 
17230 INPUT "N3 6 E©l NlEimE KLASSE? <J/N> : "JKS 

17240 IF K$="J" THEN 17010 - 
17250 NWKL= FALSE 
172^0 RETtJf8« 

18000 REM STANDEN INLEZEN 

18010 P0KE 67 77, l:X= USR( *"0B02", 0) :X=USR( *"14BC"# 0) 

18 090 RETURN 

19000 REM STANDEN WEGSCHRIJVEN 

19010 P0KE 67 77,l:P0KE 6768,O:P0KE 6769,96:P0KE 677O,O:P0KE 6771, 144 

19 040 X*USR€ «"09DF", 0) lX= USR< *"1 4BC"* 0) 

19 09 0 RETURN 

20000 REM H0 0FDPR0 GRAMMABL0K 

20010 As36sS«12tC> l2t§pStEal0t AI«24S76t0IH S$(12}(DIM $C 12* 4> 
20020 F=D+B*(C + E) :LA=34259 

2 0 09 0 TRUE=- l: FALSE= 0 
2101© PRINT CHR$<12)l 
25020 PRINT 

25030 PRINT "♦♦ **" 
25040 PRINT KEUZESCHERM STANDEN 0DIN 

25050 PRINT *'** «*" 
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25070 

2 5 080 
gS090 
25100 
251 10 
25120 
25130 
25135 
25140 
25150 
25160 
25 ISO 
25190 
25200 
3'68C1I>0 
30010 
30020 
30030 
30040 
30050 
30060 
30070 

3 0 08 0 

30100 
30130 
30140 
30160 
30170 
3018 0 
30200 
30210 
3 02 SO 
30270 
3028 0 

s©sto 

30300 
30310 
303 1 5 
30320 
30330 
30340 
30345 
30350 
30360 
30370 

3038 0 

3039 0 
30400 
30410 
3041 5 
30420 
30430 
30440 
30450 

m 



mmr 


**** 


1 


STAN DEN INLEZEN 




PRINT 




2 


KLASSE T3EV3EGEN 




PRINT 




3 


KLASSE WIJZIGEN 




mim 




4 


KLASSE VEf^fft ibEREN 




PRINT 




5 


UITSLAGEN INV0EREN 




PRINT 




6 


STANDEN PRINTEN 




PRINT 


•»** 


7 


STAN DEN WEGSCHRIJVEN 




PRINT 


••*♦ 


8 


INITI ALI SEREN STANttBI 




PRINT 


••** 


9 


ST0PPEN 




PRINT 










PRINT 





PRINT: PRINT: INPUT " KEUZE: "i K 

IF K<9 mm - - 

END , ■ ' 

REM K»iW01»SlNraW4A'r!E 

1= 1: JE=(MI DSC S$( 0) * 2, 1 ) = "W" 3R MI D${ SM0*>t» 
I F LEFT$( S$<I ), 4) = "0DIN" THEN 30040 

0D=I :NK= FALSE: KA= TRUE: GB= 1: PB= 0: 1= 1 
INPUT "VaLGENDE TEGENSTANDER aDIN= "J TSJ 
ir t*M m NK THWt 3iD@S«f' 

IF I<>3D AND S< I , 2)- SOD, 2)>2*( AA-S(3D* 1) ) THE34 3Ot0O 
IF LEFT$(S$(I ),LEN( TS$)) = TSI THEN 30130 

IF mi sci»g>/s<i» i»»^f#^fl i*aD mm mim 

PB=S(I,2):GB=S(I*l):ai"!a 3^140 
GT=S{I* 1):PT=S(I*2) 

IF gff MA m 3miQ 

I F JE THEN 3018 0 

KA=<S(0D*2)-S<I,2)>2*(AA-S(I* 1)>): G0T0 30210 
KA=(S(aD*S)-S(I* 2)> = 2*(AA-S<I# 1>)): ^T0 30210 

NK=TRUE 

I = I+l::GaT0 30060 

PRlNtt IF N0T NK TftEN 30280 

PRINT "3 DIN KAN 6EEN KAMPI0EN MEER W3RDEN": 60 T0 30450 
I F NaT KA THEN 30300 

f»Rlllt »*0DIN IS AL KAMPI0EN*'* €0T0 30450 

IF N3T JE THEN 30340 

IF GB<AA AND NaT < SC 3 D* 2) - 1- PB> >= 2* < AA- GB- 1) THEN 30370 
IF GB=AA AND N0T ( S< 0D» 2) ♦ l-^f*©) >= 0 THEN 30370 
IF N3T (S(0D,2)-PT)> = 2*<AA-6T-1) THEN 30370 

GaTa 30360 

IF ^AA AND NaT C S< 0 D# 2> - I- PB) > 2*( AA- 6B- 1 > THB»4 30370 
IF GB=AA AND NaT ( S< 3 D, 2) + 1 - PB> > 0 THEN 30370 
IF NaT CSOD, 2)-PT>2*(AA-GT-l)) THEN 30370 
PRINT «*0DIN KAMPlitN BIJ Gfi_lJKSra.*'t 1^110 9©4S0 
I F N3T JE THEN 30410 

IF GB<AA AND NaT ( S< 3 D, 2) - PB) > = 2* ( AA- 6B- 1 ) THEN 30440 
IF i»»AA Ai*lD NIT C S(0D# 2)+t-iP8)s^»0 mfc* 3Q4f40 
IF N0T ( SOD, 2l*i*r?>»*'®|iCAft»eT- I) THEN 30440 
GaTa 30430 

IF GB<AA AND N0T < S( 2lD. 2) - PB)> 2*{ AA- 6B- 1) THEN 30440 

IF GB=AA AND N0T ( S( 3 D, 2) + 2- PB) > 0 THEN 30440 

IF NaT (S<aD, 2) + 2-PT)>2*( AA-GT- 1) THEN 30440 

PRINT •'0D1N KAMPI0EN BIJ WINST": G0Ta 30450 

PRINT "aoiN KAN N0G GEEN KAMPiaEN WaRDEN" 

RETURN 



LUODSJ8ftftO|^A5;Op'ftAMrtA 



e 5 □ 5 



Door 



Ro9e r Lanaeveid 
Laan van Midden burg 
275 CC,> yOO^UBgl 

1 . 5 ©70, miiw 



t>i% is #en die iK nod i g heb biJ bepaaide funk- 

ties vaB wt Jn lr«*f lie S5 Video Board, Bedoeide funk- 
ties vra«en weef tlid dan de commm^mr wi l seven. Wor- 
den de3E#, funKties aansespr^H^nr #J> het videoboard 
komt t lJdnood, dan waakt h€*t vld»Drt*&ard z' n ready- 
uitmans taasT waardoor de computer ©en seintJe kriJst 
o« even til i^achten wet het verzenden van informatie 
naar m% bOATd toe. Op de B502 ^lc:rp^PC#ssor ?jt 
seen "t(miT"«inaana* Voor dit QTobi&tm w&m m dus e#ii 
ander# »fU*|gafii»», Kowen. . . 

Het stil set ten van de G5i32 Microprocessor is ntet 
Moaeiirfkr tenzij door de spanninf te verwiJderen. Dat 
1 Ukt echter niet #e Meest er##ante benadering. Ook 
het ready-slsn#aJ van het videoboard wet de NMI ver- 
binden en de W%l-^vector sericht op een wacht rout live 
is wat probieittaiiisichi ook ai mm% het zonder weer, 
a I tAoet i»el«€'nd ziJft hoe lanw er ia«sJ*acht moet word en. 
Voor iiii -.imf toen de opiose^ns in het kombinereia van 
NMI eii FIR-Poort. Er is ecli^iwr wei een stukJe hard*- 
MiA re rtod i ^* 

fet hardwar* en het prosraMiiiiia-wlr^ifeken voor z i ch. Let 
wet even op dat de NftMD-P«K>f»it»* «®n het type open col- 
lector ziin <d. w. 2. dat er uitaansen aan eikaar sekop- 
peid frtogen worden* zonder dat er rook, kpftkt). ^ De weer- 
stand we Ike bii de andere NANtKPOort«h ztt <N1 en N-£) 
hoeft bij HZ met. Deze is er ai* natrteliJk op de ba~ 
siskaart* 



Ha rdware : 



+ 5V 



REftDY - 




470 Ohw 

PA0 CP 10) 

NMI, 



Nl ... N3 = 7401 (open collector) 
Software: 



0200 
0201 
0203 
B20& 
13203 

01i^ii 

0210 
0211 



40 



1ft 



48 

09 FE 
SD 81 
AD 80 1ft 
23 01 

20 m 



PHft 

LDftIM *FE 
STft PftDD 
LDfi PftD 
ftNDIM 



PLft 
RTI 



BRENG INHOUD ACCU 
STOCK EN MftftK PftO INDfipi , 

LEES INHOUD DftTflPOORT 

IB REftDY HOOG ? 
TTY 

HAftL INHOUD ftCCU _ 
WEER OP EN KEER WEEK TERUG 
NAAR PR0{3ilAMMA. 



NMI -vector OP $0200. 
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TOtPSSSraS "rtjntifl^*' mOM DE APPLESFT COMPILER ' TASC* 

Het t*sz|9 zijn met Basic- en Basicodeprogramma' s heeft Uw redakteur enigszins 
gep.rikk#ii. iasie is een hogere prograiSM»eertaal, waarvan velen al wel weten dat 
deze per definitie Jati^ziMfter is dan waehlTjetaal. Nu kun je het in Basic ontwik- 
kelde p»;ogramma opnieuti sehrijven, en dan in machinetaai. Indien je echter in 
hm% bezit bent van aan flPPLE-computer met disk-ooerat inq en tevens van de Pople- 
ssft Compiler TfiSC, dan is er nog een tussenoplossing denkbaar om de snelheid 
van machinetaai te bereiken. Met de compiler maak je van het Basic-prog ramma 
dat in je geheugen staat een machinetaal-f i le, dat echter nog niet in staat 
is om te worden gebruikt. Het moet samenwerken met de file RUNTIME, die op de 
TflSC-schijf staat. 

Moe kun je nu te werk gaan? Je maakt een lege schijf aan door deze te formatte- 
ren en met INIT meteen een HELLO-proq ramma erop te sehrijven. Van de TflSC-schijf 
ga je nu de binaire file RUNTIME overbrengen naar de lege schijf. Compiieer 
daarna met TflSC het in machinetaai om te zetten Basic- of Basicode-proq ramma en 
zet dit eveneens op de nieuwe schijf. Wil je het bewuste programma nu ''runnen', 
dan moet je wel eerst met BLOOD RUNTIME de zaak voorbereiden. Daarna pas kan men 
met BRUN (filename) de routine gebruiken. Het verschil in snelheid is erg groot. 
In sommige van dit soort bewerkmgen verloopt de interaktie met de gebruiker 20 
snel, m. a. w. de op het scherm verschijnende teksten vlieqen voorbij en zijn niet 
le lezen, dat de wens zal ontstaan om binnen de routines weer wacnt loops aan te 
brengen. 

TflSC is in de handel verkrijgbaar en het is de moeite waard het aan te schaf fen. 

Offl *t« dt februikei'svrier»dBlijk*»eid van de schijf te vergroten h#b ik f rans Wer- 
berkt aevraagd zodaniae vttofateninten t« treffew mijn 
(nieuwef schijf RlMriME meteen worot geladen, waarna is direkt de machinetaal- 
versie van het Basic- of Basicode-programma dat ik verkies ki»* ? tirunnen' . 
Frans bedacht een oplossing, maar stuitte eerst op een probleemV RUNTIME is ge- 
schreven in het geheugengeDied *0803 t/m $17ftF, faemijl in dit gebied het HELLO- 
programma werkzaam is! Een gevaarlijk gebied dus. Eerst moest hij dit verhelpeM, 
en daarom schreef hij een kleine machinetaai routiJie ^ERZET RUNTIME, met start- 
adres $0320 (#800) in de assembler van Carl Moser. Het MELLO-prog.ramma laadt 
RUNTIME naar $3803 t/m «47flF. OVERZET RUNTIME h«» naar .*0803 t7m tl70F, en 
Sorat tevens voor een goede afsluiting. Men' kkn iwswers niet meer terug naaf 
iasie (HELLO). Het bijbehorende HELLO- progra««a zofot dan voor een goede afwik- 
keling, waarmee de gecompileerde files op schijf direkt gebruiksgereed klaar, 
staan. 



00 

00 10 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 

0 i 00 

Olio 
0120 
0130 
OUO 
0150 
0160 
0170 
0160 
0190 
0200 
0210 
0220 
0230 
0240 
0250 



-LS 

; OVERZET RUNTIME 29 DECEMBER 1985 

; Frans Verberkt 

;Hi 1 iekensacker 12 - 10 

;6546 KG NIJMEGEN 

; 080 - 779555 



.OS 



; ***##«»«**»*«*****«*«* 



BEGIN 
EINDE 

MEM 



.DE $0803 
.DE *17fiF 

.DE $3803 



jWERKiEBlED 



;BEGIN TYDELIJK GEBIED 
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B !Bj a s 



:)320- 



5326- 

:)328- 
532fl- 
J32C-' 

>330- 
>332- 

0334- 
0336- 

0338- 
033A- 
033D- 



fl9 03 
85 3C 
09 38 
85 3D 

Pig PF 

'8i§ 

m 4? 

SS 

09 03 
85 42 

flg 08 

85 iiZ 

00 00 

2 0 2S 
4C 03 



0260 
0270 
0280 
0290 
0300 
0310 
0320 



//OOOO, 0340, 



0340 
0350 

osao 

0370 

0400 
0410 

mW'' 

0440 
0450 
0460 
0470 
04t0 

o^m 

0500 
OSIO 
0520 
0530 
0540 
0550 
0560 
0570 

0600 
0610 
0620 
0630 
0640 

oeso 

06&0 
0670 
0660 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
Fi 0760 
03 0790 
0800 

oaio 

0820 

0340 



.0£ 


«3C 


.DE 


«3D 


.DE 


«3E 


.DE 


$3F 


.DE 


$42 


.DE 


*43 



;PftGE ZERO 

; ««««««*«««««« 

wmL 



TQfTL 
TOTH 

NflORL 
NflARH 



; ftPPLB ROUTINES 

IKJBKOUD .DE *03D3 
MOVE .JM *f^2G 

;OVERZET RUNTIME 

.Bfl $0320 

LDfl #L,MEM 
STfi »VfiNL 
Lm «H, MEM 
mPi *VflNH 



;KOUOE START D.O.S. 



{CALL 800 



LDA #L, MEM+EINDE-BEGIN 
STA *TDTL 

LDA #H, MEM+EINDE-BEGIN 

STA ♦TOTH 

LDA #L. BEGIN 
STA *I^Rt 
LDA #H, BEGIN 
STA ♦NHARH 



LDY «*00 
JSR MOVE 
JMP DOSKOUD 



;lMOuDZflKELlJK VOOR MOVE'' 

:0m been 'gekke' list ie krijgen. 
■heeft soortgelijk effekt 
ols commando <new>. 
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3LIST 
1000 REM 



-.1, ! 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
2000 
I NIT 



GOSUB 2010: 
GOSUB 3010: 
GOSUB 4010: 
GOSUB 5010: 
GOSUB 6Qmt 
GOSUB 7010: 
END 
REM 



REM IN IT 

REM TEST FILES 

REM BOODSCHAP 

REM HfifiL RUNTIME 

REM CflTftLOG 

REM OVERZETTEN 



VOOR'T EER5TDAT 

IK 'N COMPUTERSPEL 
\ ZIE DPiJ NIETTE6EN 
\Z'N VERUES Km„. 



2010 DI* = CHR* (4) 
2020 RETURN 
3000 REM 
TEST FILES 

3010 HOME 

3020 FI$ = "RUNTIME" 

3030 GOSUB 3510: REM TEST FI$ 

3040 FI$ = "OVERZET RUNTIME" 

3050 GOSUB 3510: REM TEST FI* 

3060 RETURN 

3500 REM 
TEST FI« 

3510 ONERR GOTO 3710: REM FOUT FI* 

3520 PRINT DI$: "VERIFY" ;FI» 

3530 POKE 216, 0 J REM GLEOR ONERR 

3540 RETURN 

3700 REM 
FOUT FI$ 



3710 POKE 216,0: REM 
3720 FC = PEEK (222) 
3730 IF FC = 6 THEN 
3740 PRINT 

3750 PRINT "DISK FOUT NR 
3760 GOTO 3520 
3770 PRINT "FILE ' ";FI$; 
3780 GOTO 3520 
4000 REM 
BOODSCHfiP 



CLEAR ONERR 
: REM FOUTCODE 

3770 




#":FC 



IS NIET ftflNWiHe* 



4010 HOME 

4020 PRINT "laad of type geen BASIC programma" 
4030 PRINT "Indien U dit per ongeluk doet CALLflfl©" 

4040 RETURN ' ' . 

5000 REM - 
HflfiL RUNTIME 



-1 » . 



5O05 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
6O00 

GATmie 



REM LAADT RUNTIME OP $3803 T/M *47ftF. 
PRINT DI$:"BLOAD RUNTIME, 0*3803" 
PRINT "RUNTIME IS 
INVERSE 
PRINT " 
NORMAL 
PRINT " 
RETURN 
REM 



GELADEN "; 

van *3803 t/m «47f«^" 



,6010 
S020 
6030 
6040 
7000 



POKE 49168,0: REM CLEAR TOETS 
POKE 34,3: REM BOVENGRENS = REBEL 4 
PRINT Dl*;"CATftk06" 
RETURN 
REM 



OVERZETTEN 



7010 
7020 
7030 
7040 
70S0 
7060 
7070 
7060 



pRiifr "mmrim 

GAAT NAAR ": 



PRINT : 
INVERSE 
PRINT " 

mnm. 

PRINT " tOB05 t/« *17AF"^„..^^,^„^^,^ 
POKE 34,0: REM HERSTEL BOVENGRENS 
PRINT dU;"BRUN OVERZET RUNTIME" 
RETURN 
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Nevenstaande inzending is een BasicprograaM 
geKhreven voor een raiHE coiputer, en derhalve af- 
Miikend van Microsoft Basic, w IF .. THEN ..DO 
ELSE struktuur behoeft geen nadert^wrlllffim, 
spreekt voor zich. 

CHm(154) Hordt aebruikt ot het schem scMhrie ta- 
ken. LIN(S) betekent dat op de printer of op het 
schen S regels Horden overgeslagen voordat de vol- 
«mdt rml iordt tfvirMBju flibraik van Niere- 
i«n Bagfe )in mm WMm^Ume^ mnAtm. 



Het publiceren vwi dit pragraiM gdeirti M mm < 
tal redenen! 

^ tet Mil iets laten zien van en voor beginners; 

- er is in z^ere zin struktuur te herksmen: 

- het nodigt anderen ait verbeterde versies m te 
leveren; 

- het toont dat Basic's niet aan elkaar gelijk zijn; 

- het nedigt leteUngm tm sch^len ui| m jiet ii^ 
zewden van Iwb pi^fteaa^s. ^ - t^v*,* • 

De redaktie ziet graag dit soort aateriaal biraien- 
koaen, in Basic, mm, CQH, fSBOBL, , Mchinetaal, 
etc. etc. •■ ''^'- '^ ■ 



COMODOfE-INFO 



Er zijn nogal tens aenscn die zich geen raad itetcn 

•et hun Cooaodore als deze gerepareerd aoet Norden. 
Van ingeNijden vernaaen Nij dat de firaa Escoa, An- 
toniuslaan 1, Hendrik Ida Aabacht, deze aachinn 
nmM^^Maar verluidt zouden er Mihiiitaprijzen 
Monien oefeKeno. 



ii fiisa flTUWTfl, een bekende naaa voor gebruikers 
van kantooraaterialen verkoopt - aldus leerde aij 
Frank Nanshande door toezending van een diskette - 
handifle disketteverzamidlttesjes voor verzending via 
PTT. ze zijn geaaakt !^evig golfkarton, zijn 
door perforatie voorgevemen, en kuniien rakele dis- 
kettes bevatten. 



Fernando Lopes, Porto, Portugal. 

I'a using Nicro-fflDE to do listings of long pro- 

!raas. I like to use labels Nitii aire characters 
han those alloNed (fl-Z), like titters, punctua- 
tion aarks, loner case, etc. 
These labels work very Hell, but they seea Strang 
Nh«] I do the TfflLE listings. The problet is in 
the PACK and UVACK routines. 
If there is ssae club aeiAer that can write a 
patch to fix this need, despite the greater Mast- 
ing of aeaery by the TflBLES, plem write le the 
editor. 



Veelal zijn het de kleine prograaaa's die zo onge- 

looflijk veel kunnen. Er faestaan veel variaties oa 

een beeldschenricopy (geen HiRes) op een printer af 

te drukken. Naar dit goed Herfcende pragNiM Is 't 

kleinste. OinieaBn in het prograaaa mmWi « «M 

beeldscherakopy wilt. 

20000 0PENl,4:aPB«2,3:PRINTCHR$(19) 

20010 FDi[T»6T0999 

20(K!0 6ETi2.fl$:PRINTtl.flt; 

20030 IEXTilL0SE2iCL0Sl 



10 
IS 
16 
17 
20 
30 
40 
SO 
60 
70 
SO 
90 



BPSIC PROaWHW 'POSITIEVE BETflLLEW' 

Bert Kiietters en Bart van Pelt zijn 

le jaars student aan de 

Hogere Econoaische School, Rotterdaa 

REM PUTEURSi BERT MCTTERB/BART VflN PELT 

REN : MITOmnSQE INFDRMATIE VERNERKIN6 (fliV) 

REN Kralingse Zooa 91, 3063 ND Rotterd«k 

REN 

REN EEN RIJ VflN DERTI6 KTALLEN IS 
REN BESTflflNDE UIT POSITIB^ EN 



RERD/DATfl 

N^NINIHUH 

T^TELLBi 



fitfffit 



160 PRINT 
170 PRINT 
180 PRINT 
190 PRINT 
200 PRINT 



REN DATA STRUKTUUR: 

REN iwmisRrss: 

REN 
REN 
REM 

LET H«1E4<)6 

100 LET T=0 
110 LET S=0 
120 60SUB 620 

130 PRINT ■§§»♦»»»»»««♦# 
140 PRINT 'tDIT PR06RANNA ZflL U UIT EEN RIJ VAN 30 «' 
150 PRINT ■•SETflLLEN DE VOLSENDE 6ESEVENS LEVEiOl: »" 
'tDE POSITIEVE BETflLLEN OP EEN REBEL 
■iHET flflNTflL POSITIEVE BETflLLEN »" 
■•DE SOM VAN DE POSITIEVE BETflLLEN *' 
"•HET KLEINSTE POSITIEVE BETflL •" 
■•••••••••••••••••••••' 

210 PRINT LIN(S) 

220 INPUT mr U Jfl EN RETURN INDRUKKEN OH VERDER TE BflAN ?";It 
230 IF H-'Jfi* THEN DO 
240 PRINT CHAR{154) 

2S0 DOEMD 

260 as DO 
270 BOTO 220 
280 DO END 

290 REN VQMERKINB 

300 WSm 630 
310 PRINT 

320 PRINT *DE POSITIEVE GETALLEN OP EEN RIJ:'; 

330 FOR 1=1 TO 30 
340 READ 6 
350 IP »0 tHEN DO 
360 PRINT B: 

370 
380 
390 
400 
410 
420 
430 NEXT I 

440 REM RESULTflTEN flFDISJKKEN 

450 IFT^TKNDO 

460 PRINT ■DEZE RIJ BEMAT SEEN POSITIEVE GETflUJN'' 

470 BO BO 

480 ELK 00 
490 PRINT 
500 PRINT 
510 PRINT 
520 PRINT 
530 PRINT 
540 PRINT 
550 PRINT 
560 DO END 

570 DATfl 1,2,3,4,5,6,7,8,9,10, -1,-2, -3, -4, -5,-%«fiH|^-^-l 
580 DATA -h -i2;-i3 -l4 -l5 
590 PRINT LIN(5) 

600 PRINT ' EIWE PROBRflWA' 

610 END 

620 PRINT CHM(iS4) 
630 PRINT LINCI) 
640 RETURN 



LET T=T+1 

LETS>S+G 

IF 6<R Tffi( DO 

LET N»6 
DO BV 

DO END 



■cT AANRL mmn tmm fs* '.t 

■DE SON WN BE POSniBfE KIAUfN ISf '.S 
■(ET KtEHiTE POITIEVE SETAL IS: -.N 
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10 
20 
30 
40 
S0 
60 
70 

m 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 

230 
SI40 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
S00 
510 



; DISKETTE COPIER VERSION 2 



QCTQPU 
PART 1 



5A7E 



001B=^ 



0020- 
0021 = 
0022= 
0023= 
0024=« 
0025= 
0026= 
0027* 
0028= 
0029= 
0t32A= 
002B= 
O02C= 



*==--*3A7E 



Version 1.0 

Version 2.0 

Version 2. 1 

Viersion 2.2 



ori gi nal 
mod 0/Okt. 85 
code error 
return- >basi c 



MODIFIED FOR SERIAL SYSTEM 
i FOR DOUBLE-SIDED DISK-DRIVES 

VALID DRlVE-COtMFteUI^ATlDNs 
Drive 1 side A amfi it 
Drive 2 side C and D 

Attention 3 

Changes have to be made, if 
sides A and Ef on di-f-fer — 

ent Disk-Drives ! ! 

Wol-fqanq Tietsch 

E i 1 e n b u r q e r W e q 1 1 
6800 Mannheim 31 



DECEI-iBER 1985 



;PAGE ZERO LOCATIONS 



INBUF=*001B 



ZR00= 
ZR01 = 
ZR02= 
ZR03= 

ZR05= 
ZR06= 
Zl^7= 
ZR08= 
ZR09= 
ZR0A= 
ZR0B= 
ZR0C= 
ZR0D= 



INBUF+:$05 
:INBUF+*06 

INBUF+*08 

INBUF+:J:0B 
'1WBUF+*0C 
INBUF+:t0D 
INBUF+*0E 
INBljF+$0F 
INBIJF + * 10 
INBUF+*1 1 
INBUF+»12 



BASIC'S INPUT BUFFER 
; STASIA HERE 

DRIVE NUMBER (A=1,B=2, ..) 
DRIVE TO COPY TO 
FIRST TRACK TO BE COPIED 
LAST TRACK + 1 . 
TEMPORARY STOR^^BE FOR mM2 

1. BYTE OF TRACK ZERO 

2. BYTE 

3. BYTE 
DISC FLAG 
PAGE-COUNTER 
SECTOR-COUNTER 
STORAGE FOR ST ACKPO INTER 
MAX TRACK NUMBER 

MIN TRACK NUMBER 



530 
540 



jADRESSES OF THE FLOPPY CONTROLLE 
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Krcr fTi 






l_.lt/kjtfl— 


^ / «J 




vJ 7 Wj 




Ovuiu 




O X vJ 




620 




630 




640 




650 


C0 1 0-= 


660 


C01 1 = 


670 




680 




690 




70iZ) 
710 




720 




—T ~s rs 

oW 




7'40 




750 




760 

/ /VJ 




780 




7' 90 


00G7- 


800 


00P8= 


810 


00E1- 


820 


00E2= 


830 


00E5= 


Cj t uj 




n 

O S.J U.J 


00FF~ 


860 


00F"E= 


870 




8 80 


07E0= 


890 




90® 


2300» 


'■7 1 0 




920 




930 


2340— 


94i2j 


265 D== 


95,0 


265E= 


960 


265F= 


7 0 

r Clio 


2 AC 6"" 

~i -jf ~T 

/ / "7 — 




2CE5= 




zE 9= 






1 0Z13 

1 0 .3 0 




:1040 


2£)a3~ 




267A= 


1060 


. 

..i. o o ™ 


1070 


27 ID- 


1 090 




109B 


2754= 


1 100 


2761 = 


1 110 


2763= 


1 120 


2768= 



FL.PqON=tC000 ;ADRESS OF THE FLOPPY CONTR. 

mPs =FLOCON ; DATA/DATA DIR REGISTER A 
DRB#=DRA+2 ; DAT A /DATA DIR REGISTER @ 

;ACIA ADRESSES 

CACIA^=DRA4*10 ;ACIA CONTROL REGISTER 
DACIA=DRA+ti 1 ;ACIA DATA REGISTER 

I SPECIAL MEMGRY LOCATIONS 

T^MPl = $48 POINTER TO FIRST FREE 
TEMP2 = *00 RAM LOCATION 

CMPFLl = FLAG FOR COMPARE-tlOISE IN SUS7 , 
CMPFL2 = FLAG FOR COMPARE-MODE IN SUB4 

; DOS-KERNEL ADRESSES 

ZRC7=*00C7 ? BASIC COMMAND POINTER 

ZRC8=*00Ce 

ZRE1=*00E1 ; OS I BAD 

ZRE2==;f0C5E2 ;0SIBAD+1 
H3TTK=f-00E5 5 MAX TRACK NUMBER 

MEMHI=*00rF s FLOPPY LOAD POINTER 
MEMLO=MEWI-i 

EXEeUR=*07E0 J EXECUTE NEXT BASIC STATEMEN 



HIRAM=:f 
INDST-* 
qUTDST= 
INECHO= 
TKNUM=i: 
SECTNn-= 
PASCNT* 
DSTX=*2 
MAXTRK= 
BUFIND 
BUFFER^ 



2300 ; 

2321 ; 

^ '■'.^ -^.^ ''^ 

$2340 
265D 
*265E 
*265F 
AC6 
*2779 
■t-2CE5 
*2E79 



HIGHEST RAM PAGE FOR STORAGE 
INFUT DISTRIBUTOR 
; OUTPUT DISTRIBUTOR 
; SCREEN OUTPUT 
; TRACK NUI^IBER 
; SECTOR NUMBER 
;PAGE COUNT 
; CONSOLE TERMINAL 1^ 
;MAX ALLOWED TRACK 
; INDEX COMMAND DOS 
5l PAGE BUFFER FOR TR + SEC 



iUMBER 

NUMBER 

BUFFER 



KERNEL SUBROUTlNtS 



H0ME=*2663 

DELAYs*267A 

SETTK=*26BC 

INDEX=*27LD 

INACIA=$27^E 

LDHEAD=:*-2754 

UNLDHD=*2761 

UNL0AD=*2763 

INIT=*276e 



I HOME HEAD 

; DELAY ROOTIWE 

;MOVE HEAD TO TRACK IN ACCU 
jWAIT TILL INDEX END 
;INTT ACTA FOR DATA TRANSF 

; LOAD HEAD 

; UNLOAD HEAD 1 n ENTRY 
; UNLOAD HEAD 2. ENTRY 
51 NIT ALL TRACKS FROM 0-34 



30 



LUODSJ8ftftO|^A5:iOp'ftAMrtA 



5 O iE! 



KEIMMER 



1 130 
1140 

1 1 50 
1160 
1 170 
1 1S0 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1 340 



2772= 
27C2= 
27E1 = 
29C6= 
2A7D= 
2C9B= 
2CE4= 
20F7= 
2D6A= 
2D73= 
2D92* 
2D9B' 



INIT1=*2772 

BYTWRT=*27C2 

DSKWRT=i-27El 

SETDRV=*29C6 

CXC0M=*2A7D 

□SINP=*2C9B 

BUFBYT=*2CE4 

gWAP=*2CF7 

CRLF=*2D6A 

STR0UT=S2D73 

PRTAHX=*2D92 

PRTHEX=*2D9B 

;*3A79/7A = 

;*3A7B/7C = 
! *3A7D 



INIT SOME TRACKS ) 
WRITE A BYte ON DISK 
WRITE SECTOR ON DISK 
SET FOR DRIVE IN ACCU 
EXECUTE A DOS COMMANQ 
LOAD COM IN DOS BUFFER 
READ BYTE INTO ACCU 
SWAP PA6E 0 AND 1 
DO A CR AND LF 
PRINT FOLLOWING STRJ'NG 
PRINT BYTE IN ACCU 'AS ASCII 
; PR I NT LOW NIBBLE IN ACCU 

START OF PROGRAMM 

END OF PROGRAMM 
NUMBER OF TRACKS 



;M A I n 



m OUT! n E 



1 O O UJ 


t- i / hi 


HV^b START 


LDA #-F2E 








bTA LH^Z 








LDA W*1E 


1 CO i'A 


•-> 1-1 c;i H 


w..jb 1. 






■-■nab 




LDA DbT X 


i Att (71 
1 *H W 


T/\00 




STA DUTDS T 




ofioL. 




("^ T" /\ T h 1 T*\ f"* *T* 








L_ U H tF ■*- O c. 


1440 






LDA #*43 


1450 






JSR EXCOM 


1460 


3A8F 


20732D 


JSR STROUT 


1470 


3A92 


IB 


.BYTE *1B, 


1470 


~r n -r 
f -1 v 


IC 




1470 


3A94 


0D 




147» 


3A95 


0A 




1470 


3A96 


0A 




1480 


3A97 


2D 


.BYTE '- D 


1480 


3A98 






1480 


3A99 


44 




1 480 


3A9A 


69 




1480 


3A9B 


73 




14S0 


3A9C 


6B 




1480 


3A9D 






l-4@0! 


3A9E 


74 




1480 


3A9F 


74 




1480 


3AA0 


65 




i:4S0 


SAAl 


m< 




1480 




o3 




14S0 


3 A H 3 


6F 




1480 


3AA4 


70 




1480 


3AA5 


69 




1480 


3AA6 


65 




1480 


3AA7 


72 




1 4S0 


3AA8 


20 




1480 


3AA9 


2D 




1490 


3AAA 


0D 


-BYTE f0D, 



;LOAD ADRESS OF DOS-COMMAND 
; BUFFER (*2E1E) INTO PAGE 
;ZERO POINTER OSIBAD 

;GET CONSOLE TERMINAL NUMBER 
; OUTPUT BYTE 

; INPUT BYTE 

; IS IN THE ORIGINAL CODE 
• 11 

SSET POINTER FOR DOS COM 



Diskette copier 



LU0DSJ8ftft0|^A:H0p'ftAMrtA 




1490 


3AAF3 


0A 


1490 


3AAC 


0A 


IS©! 




m 


J. 500 


3AAE 


6F 


1500 


3AAF 


70 


1500 


3AB0 




1500 


3AB 1 


20 


1500 


3AB2 


66 


I'iM 




'T2 


1500 


3AB4 


6F 


1S00 


3AB5 


6D 


1500 






1500 


3AB7 


77 


1500 


3ABa 


68 


ism 




69 


1500 


3ABA 


63 


1500 


3ABB 


68 


1511® 


3ABC 


20 


1500 


3ABD 


64 


1500 


3ABE 


72 


1500 


3ABF 




1500 


3AC0 


76 


1500 


3AC 1 


65 


1510 


3AC2 


20 


1 5 1 0 


3AC3 


28 


1 5 1 0 


3AC4 


41 


1510 


3AC5 


2F 


1 5 1 0 


3AC6 


42 


1510 


3 AC 7 


2F 


isli 






1 5 1 0 


3AC:9 


2F 


1510 


3 AC A 


44 


1 5 1 Ci 


3ACB 


29 


1 5 1 0 


3ACC 


20 


1510 


3ACD 


3F 


1 5 1 0 


3 ACE 


20 


1 5 1 0 


3ACF 


00 


1520 


3AD0 


20D33C 


1530 
1540 


3AD3 
3AD5 


8520 
20 7 3 2D 


1 550 


3ADa 


0D 


1550 


3AD9 


0A 


1560 


3ADA 


43 


1560 


3ADB 


6F 


1 560 


3ADC 


70 


1560 


3ADD 


79 


1560 


3ADE 


20 


1560 


3ADF 


74 


1560 


3AE0 


6F 


1560 


3AE1 


20 


1560 


3AE2 


77 


1560 


3AE3 


68 


1560 


3Ae4 


69 


1 560 


3AE5 


63 


1560 


3AE6 


68 


1560 


3Ae? 


20 


1560 


T A 1" 1—. 
-J'MCIO 


64 


1560 


3AE9 


72 


1560 


3AEA 


69 




.®Ylfe *Capy whi ch drive ' 



jSVtE ' (A/B/iC/DJ ? ',#00 



JSR SlJBl ; CHECK VALID Df^ilVE NUhBEFC 

STA ZR00 ; DRIVE NUMBER 

JSR STROUT 
.BYTE *0D,t-0A 

.BYTE 'Copy to which drive ' 



32 



LUODSJ8ftftO|^A5:jOp'ftAMrtA 



E^Ei 5 □ S 



1560 


3AEB 


76 


1560 


3AEC 


/ L-:- 


IS60 


3 A ED 


20 


1570 


3AEE 


28 


1S70 


3AEF 


41 


1S70 


3AF0 


2F 


1570 


3AF1 


42 


1570 


3AF2 


2F 


1570 


3AF3 


43 


157® 


3^F# 




1570 


3AF5 


44 


1570 


3AF6 






3AFT ■ 


20 


1570 




20 




"T /\ r— Q 


20 


1570 


3AFA 


3F 


1 570 


3AFB 


20 


1570 


3AFC 


00 


15S0 


3AFD 


20D3/5C 


1 590 


3BQ!)0 


852 1 


1600 


3B02 


200E3D 


iJb ^tv'il*. 




2©732D 


1620 


3B08 


0D 


1620 


3E<09 


0A 


1630 


3B0A 




1630 


3B0B 


69 


1630 


3B0C 




1630 


3B0D 


73 


1630 


3B0E 


74 


1630 


3B0F 


20 


1 i63'a 


3B'1'0 


74 


1 630 


3B1 1 


72 


1 630 


3B12 


61 




3Bi.3 


63 


16c'0 


3B1 4 


6E( 


1 630 


3B 1 5 


20 


1630 


ZB 1 6 


74 


Jl <^ vj 


■\F! 1 7 

■J» JC,* 1 / 


AP 

O I 


i O v!j 


T 1 P 






Tn 1 o 




1 A "^(71 


■J'O i H 


Al- 






/ V.I 


.1 


o o J. 


7Q 


.1. o wJ 


-■'ttj 1 n 

■-^ 1,7 J. 


'■5(31 


1 640 


3B 1 E 


20 




3B 1 F 


20 


1640 


3B20 




1640 


3B2 1 


20 


1 640 


3B22 


20 


1 640 


3E(23 


3C 




■ O X_ T 


3 Pi 


1640 


3B25 


2D 


1640 


3B26 




1640 


3B27 


34 


1640 


3B28 


3E 


1640 


3B29 


20 


1440 


SB2A 


3F 



.BYTE ' (A/B/C/D> 



' , *00 



TRACK 



JSR SUBl ; CHECK 

STA ZR01 ; DRIVE 

JSR SUBA 5 CHECK 

JSR STROUT 
.BYTE $0Di*0A 



VALID DRIVE NUMBER 

NUMBER 

IF SAME DISC ORIVE 



.BYTE 'First track to copy 



BYTE 



<0-34> 



,*00 



LUODSJ8ftftO|^A5;Op'ftAMrtA 



KEIMMEIR 



1640 


3B2B 


20 




1640 


3B2C 


00 




1650 


3B2D 


207D3D 


JSR SUB2 ! CHECK VALID TRACK NUMBER 


1660 


3B30 


8522 


STA ZR0? : FIRST TRACK TO BE COPIED 

will «_ 1 \ »j J.- 1^ 1 4> 1 • 1 1 \nwi% 1 \mf x«*i— wLifi X 


1670 


3B32 


852D 


STA ZR0D 


1680 


3B34 


20732P 


JSR STROUT 


1690 


3B37 


0D 


.BYTE *0D,*0A 


1690 


3B3a 


0A 




1 7B0 


3B39 


4C 


.BYTE 'Last track' 


1 700 


3B3A 


61 




1700 


3B3B 


73 




1700 


3B3C 


74 




1700 


3B3D 


20 




1 700 


3B3E 


74 




1 700 


3B3F 


~-7 '~ 




1 700 


3B40 


6 1 




1700 


3B41 






1700 


3b42 


6B 




1 7 1 0 


3B43 


20 


.BYTE ' (Inclusive) <0-34> 


1 / 1 0 


3B44 


28 




1 7 1 0 


3B45 


49 


L 


1710 


3B46 


6E 




1710 


3B47 


/ 

OO 




1710 


3B4S 


6C 




1 7 J. 0 


3B49 


75 




1. 7 1 0 


3B4A 


73 




■J. 7 1 0 


3B4E 


69 




1 7 1 0 


3B4C 


76 




1710 


3B4D 


65 




1710 


3B4E 


29 




1 7 1 0 


3B4F 


20 




1 7 1 0 


3B50 


20 




1710 


3B51 


20 




1710 


3B52 


3C 




1710 


3B53 


30 




1710 


3B54 


2D 




1710 


3Ei5'o 


33 




1710 


3B56 


34 




1710 


3B57 


3E 




1710 


3B58 


20 




1710 


3B59 


3F 




1 7 1 0 


3B5A 


20 




1710 


3B5B 


i30 




1720 


3B5C 


207D3D 


JSR SUB2 ! CHECK VALID TRACK NUMBER 


1730 


3B5F 


S52C 


STA ZR0C sMAX TRftGK MUi 


1740 


3B61 


8523 


ST'A IFiQ^y. "TP Wl !MR TH rnPTPn 


1 750 


3B63 


E623 




1760 


3B65 




CMP ZR02 


1770 


3B67 


3003 


BMI INPERR 

I..' 1 I J. J. 1 ^ t I — 1 \ t \ 


1780 


3Ei69 


4C9D3E! 




1790 


3B6C 


20732D INPERR 


JSR STWOUT 


1800 


366F 


2A 


.BYTE '** Track -from > trmck to • ' 


1800 


3B70 


2A 




1800 


3B71 


20 




1800 


3B72 


54 
72 




1800 


3B74 


61 





LU03'SJ9MO|^A;30p'MMM 



2§B 5 □ S 



KE MIME Ft 











OD / O 


Aft 








1800 


3878 




1800 


3B79 




1800 


3B7A 




1800 


3B7B 


AD 

CUJL/ 




3B7C 






3B7D 


3E 


1800 


3B7E 


20 


1800 


3B7F 


74 




3880 




1800 


3BS1 


61 


1800 


3B82 


63 


1800 


3B83 


j6B 


1800 


3B84 


20 


l@00 


3B85 


74 




3B86 


6F 


l@00 


3E-i87 


20 


1100 


3BSa 


21 


1810 


3B8^' 


20 


1810 


3B8A 


2A 


1810 


3B8B 


2A 




3B8C 


0D 




3E<e-)D 


0A 


1S20 


3B8E 


54 


1820 


3B8F 


72 


1820 


3B90 




^820 


3B91 


20 


tS:20 


3B9'2' 


61 


1820 


3B93 


67 


1S20 


3B94 


61 


1 820 


3B9S 


69 


182t!) 


3B96 


6E 


1820 


3B97 


20 


1820 


3B98 


21 


1820 


3B99 


00 


1 8-30 


3B9A 


4C053'8 


1840 


3B9D 


20732D 


1850 


3BA0 


0D 


1850 


3BA1 


0A 


1850 


3BA2 


0A 


1B60 


3BA3 


43 


I860 


3BA4 


6F 


1@60 


3BAS 


70 


1860 


3BA6 


79 


1860 


3BA7 


20 


I860 


3BA8 


66 


1860 


3BA9 


72 


1860 


3BAA 


6F 


iBh& 


3BAB 


6D 


1860 


3BAC 


20 


1860 


3BAD 


44 


1860 


3BAE 


72 


1860 


3BAF 


69 


1860 


3BB0 


76 


1860 


3BB1 


65 


1860 


3BB2 


20 



BYTE ' »» ' , *0D , *0A 



,BYTE 'Try again !',«:00 



J MP TRACK 
READY JSR STROUT 

.BYTE *0D,*0A,*0A 



BYTE 'Copy froim Brive ' ,*00 



OEjgj ICjj £J iP" KEIMMER 



1860 


3BB3 


00 




1870 


3BE4 


A520 


LB A ZF^00 


1880 


WWit 




ABC 


1890 


3BB8 


209B2D 


JBR PRTHEX 


1900 


3BBB 


20732D 


JSR STROUT 


1910 


3BBE 


20 


.BYTE ' to Drive ' ,*0B 


1910 


3BBF 


74 




1910 


3BC0 


6F 




1910 


3BC1 


20 




1910 


3BC2 


44 




1910 


3DC3 


72 




1910 


3BC4 


69 




1910 


3BC5 


76, 




1910 


3BC6 


• vr: 




1 9 1 0 


3BC7 


20 




1910 


3BC8 


00 




1920 


3BC9 


A521 


LDA ZR01 


1930 


3 BCD 


6909 


ADC #:t:09 


1940 


3BCD 


209B2D 


JBR PRTHEX 


1950 


3BD0 


20732D 


JSR STRQUT 


1960 


3BD3 


20 


.BYTE ' / Tracks ' ,*00 


1960 


3BD4 


2F 




1960 


3BD5 


20 




1960 


3BD6 


54 




1960 


3BD7 


72 




1960 


3BDa 


61 




1960 


3BD9 


63 




1960 


3BDA 


6B 




1960 


3BDB 


73 




1 960 


3BDC 


20 




1 960 


3BDD 


00 




1970 


3BDE 


A52D 


LDA ZR0D 


1980 


3BE0 


20922D 


JSR PRTAHX 


1990 


3BE3 


20732D 


JSR STROUT 


2000 


3BE6 


20 


. BYTE ' thru ' , $00 


2000 


3BE7 


74 




2000 


3BEa 


68 




2000 


3BE9 


72 




2000 


3BEA 


75 




2000 


3BEB 


20 




2000 


3BEC 


00 




2010 


3BED 


/\ cr -'"i 
l-l .iL U 


LDA ZR0C 


2020 


3BEF 


20922D 


J S R r ' R r A hi X 


2030 


3BF2 


20732D 


JSR STRQUT 


2040 


3BF5 


01.) 


.BYTE *0D,S0A,'Is this 


2040 


3BF6 


0A 




2040 


3BF7 


49 




2040 


3BF8 


73 




2040 


3BF9 


20 




2040 


3BFA 


74 




2040 


3BFB 






2040 


3BFC 


69 




2040 


3BFD 


73 




2040 


3BFE 


S@ 




2040 


3BFF 


6F 




2040 


3CO0 


6B 




2040 


3C01 


61 




2040 


3C02 


79 





36 



□ s 



X- t> ^ iCJ 


3C03 


20 




2050 


3C04 


2S 




2050 


3(405 


59 




2050 


3C06 


2F 




2050 


3C07 


4E 




2050 


3C08 


29 




2050 


3C09 


20 




2050 


3CnA 


3F 




2050 


3C0B 


2,0 




2050 


3C0C 


0(0 




20i>0 


3C0D 


3^0C5 


3C 


2070 


3Ci0 


;'f003 




2080 


3C12r 


4C7E3A 


2090 








2100 


3C15 


20F73F 


2110 


3C 18 


2061 


27 


2120 


3C1B 


2063 


26 


2130 


3C1E 


2073 


2D 


2140 


3C21 


0D 




2140 


3C22 


0A 




2140 


3C23 


0A 




2150 


3C24 


44 




2150 


3C25 


6F 




2150 


3C26 


20 




2 1 '-itl 




70 

r X 




j_ .(. wJ v.! 


K-j .C. 0 


0 1 




^ J. O V J 


3n29 


■yc- 

/ W 






J... r 1 


20 






■-^ w jt. 0 


77 




o 1 

^ J. vJVJ 


0 \^ i.-f 


6 1 




dC. J. wVJ 




6E 




1 '==it?1 

S— X \^ VJ 


3C2E 


74 




2 1 50 


•T- Q p- 


20 




1 SCI 


l_f 


74 




oL. X v-fVJ 


■ W J. 


6F 




jL. X \-JVJ 


\_f 


20 






L_» . J» • Jt 


63 




X wUJ 


W "T 


6F 








70 




2 1 50 


0 ■_' 0 


79 




2150 


3C37 


20 




21 &0 


3C38 


61 




2160 


3C39 


6E 




2160 


3C3A 


6F 




21 60 


■3C3S 


74 




2160 


3C3C 


68 




2160 


3C3D 

W V-/ 


65 




2160 


3C3E 


72 




2 1 60 


3C3F 


20 




2160 


3C40 


64 




2160 


3C41 


69 




2160 


3C42 


73 




2160 


3C43 


6B 




2160 


3C44 


65 




2 1 60 


3C45 


74 




2160 


3C46 


74 




2160 


3C47 


6S 




2160 


SC48 


20 





BYTE ' (Y/N) ? ' ,*00 



JSR GETANS 
BEQ LAB01 
JMP ST^T 



LAB01 



sGET ANSWER 

;THEN START GOFYIN® 

;COPY NOW 



JSR COPY 
JSR UNLDHD 
JSR HOME 
JSR STROUT 
.BYTE *0D,*0A,*0A 



.BYTE 'Do you want to copy 



BYTE 'another diskette ' 



37 



LUODSJaMOI^A^^Op'ftAMrtft 



□ S 



2170 


3C49 


28 


217% 


SC4A 


S9 


2170 


3C4B 


2F 


2170 


3C4C 


4E 


2170 


3C4B 




2170 


3C4E 


20 


2170 


3C4F 


3F 


2" 17® 




20 


2 1 70 


3C51 


00 


2180 


3C52 


20C53C 


2 1 90 


3C55 


D003 


2200 


3C57 


4C9D3B 


2210 


3C5A 


20732D 


7220 


3C5D 


0B 


^2220 


3C5E 


0A 


2220 


3C5F 


0A 


2230 


3C60 


50 


2230 


3C61 


6C 


2230 


3C62 


65 


2230' 


3C63 


61 


2230; 


3C64 


73 


2230/ 


3C65 


65 


223(j|l 


3C66 


2C 


22^w 


3C67 


20 


22^0 


3C68 


70 


2230 


3C69 


75 


2230 


3C6A 


74 


2230 


3C6B 


20 


2230 


3C6C 


74 


2230 


3C6D 


68 


2230 


3C6E: 


65 


2230 


3C6P 


20 


2230 




54 


3C70 


2230 


3C7 1 


55 


Z23« 


3072 


54 


2230 


3C73 


4F 




3C74 


52 


2230 


3C75 


49 


2230 


3C76 


41 


2230 


3C77 


4C 


2230 


3C7S 


20 


2230 


3C79 


44 


2230 


3C7A 


49 


2230 


3C7B 


53 


2230 


3C7C 


43 


2230 


3C7D 


20 


2230 


3C7E 


69 


2230 


3C7F 


6E 


2230 


3C80 


20 


2240 


3C81 


64 


2240 


3C82 


72 


2240 


3C83 


69 


2240 


3C84 


76 


2240 




65 


2240 


3C86 


20 


2240 


3C87 


41 


2240 


3C8a 


20 


2240 


3C89 


61 


2240 


3C8A 


6E 



BYTE ' (Y/N) ? ' ,*00 



JSR 6ETANS 
BME MESSA 
J MP READY 
MESSA JSR STROUT 

.BYTE *0D,*0A,*0A 



GET ANSWER 



.BYTE 'Please, put the TUTeftl^L &ItC i« ' 



.BYTE 'drive A and depress 



38 



LUODSJ8ftftO|^A5:iOp'ftAMrtA 



224i0 


3C8B 


64 






2240 


3C8C 


20 






2240 


3C8D 


64 






ss4i 


3CQE 


65 






2240 


3C8F 


70 






2240 


3C90 


72 






224® 


3C91 


65 






2240 


3C92 


73 






2240 


3C93 


73 






2240 


iscm 


20 






2250 


3C95 






. BYTE ' < RETUR^4> ' , *2e , #00 


2250 


3C96 


52 






22S0 


3C97 


45 






2250 


3C98 


54 






2250 


3C99 


55 






2250 


3C9A 


52 






2250 


3C9B 


4E 








3C9C 


3E 








3C9D 


2E 






2250 


3C9E 


00 






2260 


3C9F 


209B2C 




JSR OS I rap 


2270 


3CA2 


A901 




LDA #*01 


2280 


3CA4 


20C629 




JSR SETDRV ;SET FOR DRIVE A 


2290 


3CA7 


206326 




JSR HOME 


2300 


3CAA 


68 




PLA ; RESET STACK POINTER 


2310 


3CAE! 


L 

O O 




PLA 


2320 


3CAC 


20F72C 




JSR SWAP ; REINSTALL BASIC CONDITIONS 


2330 


3CAF 


A93C 




LDA #COMADR/*100 ;HI ADR OF BASIC COMMAND 


2340 


3CB1 


85C8 




STA ZRCa 


2350 


C800= 






zwi=zRca^<-*i00 


2360 


3CB3 


A9EA 




LDA #COMADR-ZWI ; LO ADRESS 


2370 




85C7 




STA ZRC7 


2380 


3CB7 


20E007 




JSR EXECUR 5 PERFORM THE NEXT BASIC COM 


2390 


3CBA 


3 A 


COMADR 


.BYTE *3A ; STATEMENT DELIMITER 


2400 


3CBB 


89 




.BYTE *89 ; TOKEN FOR "RUN" 


2410 


3CEC 






.BYTE ' "BEXEC*" ' ,*00 


2410 


3CBD 


42 






2410 


3cbe: 


45 






2410 


3CBF 


58 






2410 


3CC0 


45 






2410 


3CC 1 


43 






2410 


3CC2 


2A 






2410 


3CC3 


22 






2410 


3CC4 


00 






2420 






« 














2440 










2450 








; SUBROUTINES 


2460 








■ aagsj8r-wjtffiHt3iigi[gr)jSjijis.M 


2470 






• 


2480 






s 














2500 


3CC5 


209B2C 


BETANS 


JSR OSINP J SET ANSWER 


2510 


3CC8 


A900 




LDA #*00 


2520 


3CCA 






STA iU^IND 


2530 


3CCD 


20E42C 




JSR ©UFBYT ;READ 1. CHA OF COM-BUFF 


2540 


3CD0 


C959 




CMP #*59 5 IS IT A YES 


2SSi0 


3CD2 


60 




RTS 



2560 
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3CD3 


209B2C 


SUBl 


JSR 


□SINP 


; CHECK. VALID DRIVE NUMBER 


V_J O «J 


w W > 


A900 




LDA 


#*00 


;READ 1. BYTE OF CQMMAIS© 










STA 


BUFIND 


5 BUFFER INTO ACCU 


2600 


3CDB 


20E42C 




JSR 


BUFBYT 




2610 


3CDE 


C941 




CMP 


#*41 


; IS IT A "A" 


2620 


3CE0 


3007 




BMI 


BADNAM 


; BRANCH IF LESS 


2630 


3CE2 


C945 




CMP 


#*45 


; 1ST IT A "D" 


2640 


3CE4 


1003 




BPL 


BADNAM 


; BRANCH IF MORE 


26S®' 




2907 




AND 


#7.000001 1 1 ; CONVERT TO 0 1 . . 04 


2660 


3CEa 


60 




RTS 




; DRIVE NUMBER IN ACCU 


2670 














268® 




m'J»S20' 


BADNAM 


JSR 


STRQUT 




2690 


3CEC 


0D 




.BYTE *0D, 


*0A 


2690 


3CED 


0A 










2700 




■m 




.BYTE '** 


Bad name **' 


2700 


3CEF 


2 A 










2700 


3CF0 


20 










2700 


3CF1 


42 










ryi n\ 


3CF2 


•1 

-t. 










2700 


3CF3 


64 










271® 




2B 










2700 


3CF5 


6E 










2700 


3CF6 


61 










Zf'M 


SCF7 


6D 










2700 


3CFS 


65 










2700 


3CF9 


20 










^S7li> 


3CFA 


2A 










2700 


3CFB 


2A 










27' 1 0 


3CFC 


0D 




.BYTE *0D, 


$«.'.! t-1 


271.0 


3CFD 


0A 










-7 .--1 


3CFE 


54 




.BYTE 'Try 


agai n ! ' , $00 


2720 


3CFF 


72 










2T2@' 




7W 










2720 


3D01 


20 










2720 


3D02 


61 










272® 




67' 










2720 


3D04 


61 










2720 


3D05 


69 
























2720 


3D07 


20 










2720 


3D08 


21 










2720 


3D09 


20 










2 720 


3D0A 


00 










2730 
2'74S 


3D0B 


4CD33C 


ii 


J MP 


SUBl 




2750 












His IT SAME DISC TO COPY ON 


2760 


3D0E 


A9FF 


BUBA 


LDA 




2770 


3D 10 


8528 




STA 


ZR0a 


;SET DISC FLAG 


2730 


3D 12 


A521 




LDA 


ZR01 


5 DRIVE TO COPY TO 


2790 


3D 14 


C520 




CMP 


ZR00 




2800 


3D 16 


F021 




BEQ 


RETD 


; RETURN IF THE SAME i^lVC 


2810 


3D 18 


1011 




BPL 


CHEl 


;T0 > FROM 


2820 


3D1A 


C902 




CMP 


#*02 


; IS TO "B" 


2830 


3D1C 


F01B 




BEQ 


RETD 


5¥iS RBTURN 


2840 


3D IE 


A420 




LDY 


ZR00 




2850 


3D20 


88 




DEY 








mm 


C421 




CPY 


ZR01 




2670 


3D23 


0014 




BNE 


RETD 





— Ei 5 O KEMMER 



2880 


3D25 


203A3D 




JSR SUBB ; TO IS "A" OR "C" 


2890 


3D2a 


4C3930 




JMP RETD ; RETURN 


2900 


3D2B 


C903 


CHEl 


CMP #*03 ; IS TO "C" 


2910 


3D2D 


F00A 




BE© RETD ;YES RETURN 


2920 


3D2F 


A420 




LDY ZR00 


2930 


3D31 


CB 




I NY 


2940 


3D32 


C421 




CPY ZR01 


2950 


3D34 


0003 




BNE RETD 


2960 


3D36 


203A3O 




JSR SUBB ;T0 IS "B" OR "0" 


2970 


3D39 


60 


RETD 


RTS 5 RETURN TO MAIN 


2930 


3D3A 


20732D 


SUBB 


JSR STROUT 


2990 


3D 3D 


0D 




.BYTE *0D,*0A 


2990 


3D3E 


0A 






3000 


3D3F 


49 




.BYTE 'Is it the eatne diskette 


3000 


3040 


"7 -T 
/ J' 






3000 


3D41 


20 






3000 


3042 


69 






3000 


3043 


74 






3000 


3044 


20 






3000 


3045 


74 






3000 


3046 


68 






3000 


3D 4 7 


65 






3000 


3D4B 


20 






3000 


3049 


—J 

/ -J.- 






3000 


304A 


61 






3000 


3D4B 


60 






3000 


304C 


/ or 






SIM' 










3000 


3D4E 


64 






3000 


3D4F 


69 




,- 


3000 


3050 


7S 






3000 


3D51 


6B 






3000 


3D52 


65 






3000 


3053 


74 






300(3 


3D 54 


74 






3000 


3D55 


65 






3000 


3056 


2C 






3000 


3057 


20 






3010 


3058 


59 




. E-iYTE 'You want to copy on (Y/ 


3010 




&F 






3010 


3D5A 


75 






3010 


3D5B 


20 






3010 


3D5C 


77 






3010 


3D 50 


61 






3010 


3D5E 


6E 






3010 


3D5F 


74 






3010 


3060 


20 






3010 


306 1 


74 






3010 


3062 


6F 






3010 


3063 


20 






3010 
WftB 


3064 

mm 


63 






3110 


3066 


70 






3110 


3067 


79 






wtm 




28 






3010 


3069 


6F 






3010 


3D6A 


6E 






3010 


3D6B 


20 







41 



3010 


3D6C 


28 








3010 


3D6D 


59 








3010 


3D6E 


2F 








3010 


3D6F 


4E 








30 1 0 


3D70 


29 








3010 


3D71 


20 








3010 


3D72 


3F 








3010 


3D73 


20 










3»74 


00 






- ■ • 


3020 


3D75 


20C53C 


JSR 


(3ETANS 


;GET ANSWER 


3030 


3078 


F002 


BEQ 


RETE 


;DISC FLAG (N) NOT CHANGED 


3040 


3D7A 


E628 


im 


IMWSt 


|N-FLAG RESET 


3050 


3D7C 


60 


RETE nrs 






3060 






n 






3070 












3080 


3D7D 


209B2C 


Bum JSR 


OSINP 


; CHECK. VALID TRACK NUMBER 


3090 


3D80 


A900 


LDA 


#$00 


;READ 1. BYTE OF COMMAND 


3100 


3D82 


8De52C 


STA 


iypiND 


5 BUFFER 


31 10 


3D85 


85 2 4 


STA 


ZR04 




3120 


3DS7 


20E42C 


LAB03 JSR 


BUFBYT 




'mm 




C«?0D 


CMP 


#t0D 


; IS IR A "CR" OR IS SUFF 


3140 


3D8C 


D007 


BNE 


LAB02 


;FULL - NO THEN BRANCH 


3150 


3D8E 


A524 


LDA 


ZR04 




3160 


3D90 


C935 


CMP 




5 MORE THAN 35 TRACKS ? 


3170 


3D92 


1019 


BPL 


BADTRK 




31S0 


3D94 


60 


RTS 






'3 1 '^01 




C3930 


LAB02 CMP 


#*30 


J IS IT < "0" ? 


3200 


3D97 


3014 


BMI 


BADTRK 


; BRANCH IF LESS 


3210 


3D99 


C940 


CMP 


#*40 


;IS IT > "9" ? 


3220 




1010 


BPL 


BADTRK 


; BRANCH IF MORE 


3230 


3D9D 


290F 


AND 


#"/C00001111 ;CONV ASCII TO HEX 


3240 


3D9F 


0A 


ASL 


A 


;LOW NIBBLE TO HI NIBBLE 


3250 


3DA0 


0lt 


#SL 


A 




3260 


3DA1 


0A 


ABL 


A 




3270 


3DA2 


0A 


ASL 


A 




3280 


3DA3 


A204 


LDX 


#$04 




3290 


3DA5 


0A 


LOOPl ASL 


A 


;HIGH NIBBLE ACCU INTO 


3300 


3DA6 


2624 


ROL 


ZR04 


;LOW NIBBLE ZR04 


3310 


.SBiA8 


CA' 


BEX 






3320 


3DA9 


D0FA 


BNE 


LOOP 1 




3330 


3DAB 


F0DA 


BEQ 


LAB03 


; BRANCH ALWAYS 






:t0732D 


BADTRK am 


©TROUT 




3350 


3DB0 


0D 


.BYTE $00,*0A 


3350 


3DB1 


0A 








3360 


3DB2 


2A 


. BYTE ' «* Bad 


track number *# ' 


3360 


3DB3 


2A 








3360 


3DB4 


20 








3360 


3DB5 


42 








3360 


3DB6 


61 








3360 


3DB7 


64 








3360 


3DBa 


2© 








3360 


3DB9 


74 








3360 


3DBA 










33,&0- 


3©BB 


61 








3360 


3DBC 










3360 


3DBD 


6B 








3360 


3DBE 


20 








3360 


3DBF 


6E 








3360 


3DC0 


75 









42 
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3360 


3DC1 


6D 


3360 


3DC2 


62 


3360 


3DC3 


65 


3360 


3DC4 


— 

/ ^ 


3360 


3DC5 


20 


3360 


3DC6 


2A 


3360 


3DC7 


2A 


3370 


3DC8 


0D 


3370 


3DC9 


0A 


3370 


3DCA 


54 


3370 


3DCB 


72 


3370 


3DCC 


79 


3370 


3DCD 


20 


3370 


3DCE 


1 

61 


3370 


3DCF 


67 


3370 


3DD0 


61 


3370 


3DD1 


69 


S370 


3DD2 


6E-: 


3370 


3DD3 


20 


3370 


3DD4 


21 


3370 


3DD5 


20 


3370 


3DD6 


00 


3380 


3DD7 


4C7D3D 


3390 






3400 







.BYTE *0D,*0A, 'Th-y again « ' , 



JMP SUB2 



10 REM THIS PRMRAM CflLCULflTES THE DAY OF THE HEEK 

30 Wn^'SSSr' ™E YEAR MUST BE flFTBl THE YEAR 17^ 

40 J$i2)=*mmr 

50 J«(3)="THUESDflY' • t , • 
60 J$(4)="lOIOMY" . 
70 J$(5)="THURa)flY" 
80 J$(6)="FRYDflY" 
90 J$(7)='SflTURDflY* 

100 PRINT-INPUT THE DAY, MHTH AND THE YEffl (IN FIHMES)' 
110 INPUT D.M.Y 
120 IF Y>1752 THEN 150 
130 PRINT'THE YEAR MUST BE AFTBT Ml ' 

140G0T0100 

150 K-INT(0,6*(1/II)) . : • 

160 L=Y-K 
170 0=N+12tK 
180 P=L/100 
190 Zl=INT(P/4) 
200 Z2=INT(P) 
210 Z3=INT((5iL)/4) 
220 Z4=INT(13»(0+l)/5) 
230 Z=Z4+Z3-Z2+Z1+D-1 
240 Z=Z-(7»INT(Z/7))+l 
250 PRINT'DAY OF THE HEEK IS ■;J*(Z):PRINT 
260 INPUT-NEW DATE ? TYPE YES 6r NO Ml 
270 IF L$='YES' THEN 310 
280 IF Lf='NO" THEN 330 
290 PRINT-ILLEGAL 
300 GOT0260 
310 PRINT 
320 G0T030 
330 PRINT-Btt OF 
340 END 



Hfi i Llrtinfl Only on toy Held imH ' 
frntumti^, Hwnchm, SinMtiy 

Ifttt ii thi ttit of < iMig ifltlC-lliting flushing by in na tiiil 
Here is a petedy : n / • » 

S,IiORTR72. 

Use abbreviations such as N- for NEXT in order to keep witMn 
the BASIC line litit of 88 characters! (Of course, the progrM 
could as well be distributed over tNo lines, and any line nuSbcr 
other than 10 Nould do as Hell. ) 
Initiate this utility prograa by RUNIO. 
*w, if LIST is.l(eyed in, the BflSIC-listiwg is eeitted only as 
lonL as the SHIFT^-kty is prefNd. Kitp mr fin|erf off the 
MntinuM* ^ *^ listiJ^ stops. MnPl ipili| <«l 4Ih IMIif 

To return to the usual list operation, type SVSQM7 (This init- 
iates the BASIC lift victor 0306/0307^ Nhlch ms Mdificd by our 
utility prograa.) 

On iRlNlO, the FOR-NEXT loop pokes the folloMing mcMm eixte 
prograe into the cassette buffer froa 828 to 837 : 



0828: 48 

0829: AD 43 dS Wm 
0820: FO FB 
OffiSD: 68 
082E: 4C £E 8B 



PNA save CPU register A 72 
LDA $0543 SHIFT-key held down? 173.67^5 
BEQ SHIFT if not iki, «ait m.m 
PLA fetch savid ft lift 
JNP MBGE cMtimti listing m.tl^l39 
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Three boards (at least) are needed for this i mp 1 enen t at i on : 

1- the old (original) 64k dvn RAM card, where a new qate will be added. 

2- a new 64k dyn RAM card with 2 tracks cut, and 

3- a small decoding board, with a bank register and a few TTL ic's, to de linked 
with the new 64k board. 

How it werrks: ' ' 

DECODING BOARD: 



In fiq. IB is the decoding necessary to implement a new fc4k dyn RAM card. 
The bank register is the LS 173, a 4-bit D-type register, which latches the nib- 
bles written to it (through the four least significant data lines); with these 4 
bits can be defined 16 different banks. 

The LS 175 is cleared by the systeoi Reset, so the bank 0 is always selected at 

To meaory-map this chip, a write-only address is chosen, i.e. an EPROM addre&s^ - 
like $F7FF. The choice must take into account that the Junior bus buffers aren't 
enabled in the address range of *E000-E3FF and $Ffi00-FFFF. An elegant 2x LS 688 
decoder is used (fig.IC), but a much simpler *F7xx, for instance, would work. 
As this 15 a write-only register, a spare RAM address should keep track oi th© 
bank in use. 

Fig. HIM ihows the timing diagram for this writing function. 

In the pMrpometf circuit diagraai only 8 banks are addressable by the LS 138 deco- 
der; andf applying the 4U output to the 62A input, is assured that only the firit 
8, of the 16 possible with the LS 173, can be selected. 

The Y outputs, mutually exclusive low, select the banks. N103 and NIB? activate 
the 4->B space (bank 0) of the original board. With Yl and Y2 the 2 "halves" of 
the new 64k board are selected, being the LS 173 IQ output who defines #1 or #2; 
furthermore, inverting the A15 address line, the 2 banks are always addressed in 
the 4->B range, (fig. IIC) 

NEM 64 K DYN RAN BOARD: 

Fig.lA. Please refer to E101, Sep. 83. Selecting the outputs 4 through B (4->B) 
from the LS 159 decoder (ic 11), we get the 4B line which is active low between 
addresses $4000 and $BFFF; these are the boundaries of the 32k banks, (fiq. IIC) 
This new 64k board, itself, needs a simple modification; the line between gate 
N29 output, and the input of N31, must be broken; the output (from the first) is 
wired to the G2B of the LS 138 in the decoding board, while the output of N106 
15 fed to the input of N31. Besides, the new A15 line, from N1B4 in the decoding 
board, shall be directed to the neaory board, instead of the original A15, into 
the LS 157 tic IB) mufli'^'exer . 

ORIGINAL 64K DYN RAM BOARD: 



Fiq.lIB. The original 64k memory board can be disabled only in the 4->B range. 
This way, always the other $0000 through 3FFF and $C000 through FFFF are addres- 
sable. There are no problems, so, with special JSR's or RTS's, or special 4-byte 
addressing modes, neither any special care with page zero. (This is a base for a 
data-only enlarged storage space; to work with program code, there, it's diffe - 
rent ! ) . 

The fflodificatio . w#g d gd to disable this QrjQlnal board is the adiiition of a new 
Oft-gate, to get tire WL line for the board circuitry. This is achieved with a 

new LS 32 in piggy back instalation on the original (ic 8) one. (fig. IIA) 
The SEL0 line is only (active) low when bank z ero is selected and in the 4^B ran 
qe; otherwise, when bank 1 or 2 are selected, SEL0 goes high disabling t he b oard 
or, outside 4-?6, 4B goes high, all 138 Y's high (including Y0) and then SEL0 low 
permitting the addressing of the 0->3 and C->F memory in this board, (fig. IB) 
SwitjCh SI enables the use of the original memory board in the absence of any ad- 
dftliihM- iiaking input 2 of N3iA grounded. 



The use of the added 64k memory will give the COPIER program (from BEXEC*) with 
one drive, more speed and will reduce the disk swapping times! 

An Assembler, like MicroAde, should gain extra space for source code. (IIIB)ilV) 
All that is needed is the software. 
And that's the challenge! 



LUODSJa/WOI^A^lOp'ftAMrtA 



Fernando Lopes 
ColegiQ dos Orfaos 
Lg. Baltasar Suedes 
4300 PORTO P0RTU6AL 



3Da 



18 e 

19 e e- 
20a »- 



74 
LS 
159 




VIDE: SEPT. IMS 



.RST 




NEW BOARD 

RST-«. 173LOW 



FOR DECODING 



Bo 
• e 

7a 

Tt 



oSi 


11 


o 


« 




n 




«4 



la » 



SEfJ 



TO BANK 

ZERO 
BOARD 



l» e — 

20a o 

20c o 

21a o 

21c o 

22a o 

22e o**- 



2(a o— 

2tc o— 



25c o- 
2S« »■ 



2Ce 01 



CLR vcc 
CLK 

to to 

10 10 

SI G2 M N GNO 



F7FF 



19 



-U 



JtS 



_!4 



6 


D 


G1 vcc 


G2B 


SZA 




74 




LS 




13a 


C 


Y2 


B 


T1 



CND 



-"H—yCWITROt* 



Tin 
MEW A15 



ICHMM 



I IC10.LS157I 



20 



_ _ 9; 

Ps8 vcc 

P7 07 



71 

LS 



®- 



umm mum 



-a 



-121 



PsO «cc 
P7 07 



7* 

LS 



Of 

OND 



> 6 6 6 6 



n it 6 6 6 o 6 6 



i6>i<t6 



I C 



N1B1,1|3,1tt :3>4 7U.SW 
Nt«6s1/4 7(LSM 
N1f7> 1/4 74LS26S 

TO CHANGE BANK. WRI TE 
INTO ♦F7FF THE HEXA- 
DECIMAL* OFIHEBANK 



VlOE: APRIL 19B5 



y T ? ? ? T T ? ^ T ■? ? y ? ? y 



aan de tekent«f«is 
Herman Zondag 



LUODSJ8MO|^A5:jOp'ftAMrtft 



SELt 



A)) ' '' '' 



® 



64kOYN. RAM CARD (OLD) 
BANK B (dl«€ NEW6i4ft) 



II ft 



SELt 




■ SEL 3 



■ 3 l V 



SEL 



SELt 



FROM NSW OeCOOING BOMO 





11 0: 



OKI BVN.RAM 



NEW StR.DmilAM 
MMIWITN eeCODING BOANDI 



LU0DSJ8M0|^A5;0p'ftAMrtA 



M^'ll^i ImJi LJ WmHi 



z 



1/1 

z 
< 

OS 



UJ 
Q 
< 

o 
at 
o 



CE 
UJ 
_J 
CD 
S. 
HI 

tn 
in 
< 





u S t!^ < 

IK * ■ 



A. 



O UJ 

m . 
z m 
> < 



:.S!8 



Ul 

o 






o 
u 
t- 


RAM 


a 

o _ 


u 

UJ 


fIDEO 


<ONIT 
;PROM 




• 





L 



O n 



< UJ 

ok:: 



■* S 



X 



V 



8 



c o K a » 




LU0DSJ3M0|jAll0p'MMM 

^ 5^1— ^ w — g I I J — ■ k:enme:r 



Siegfried Losensky 
D 6114 Sross-Umstadt 

In the german Elektor of April 19B5, from page 4-34, a motor- 
steering for diskette-driver was published, including a scheme. 
Because I did not want to buy new tools for Vero-thread-technik, 
I d#slgned a foll-0#py &n my platine-lay®wt for dlsk-drive- 
motor-steering according to Elektor 4/84 for publishing in the 
club- journal . 

for reprtieEfuctiDn 

this side 
touiards UU-Xamp 




Look upon e lecfei'anic-parts side 



Pin 1 mark of IC*a 
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* HET APPLE BOOT PROCES * 

* DOOR : # 

* FRANK MflNSHONDE # 

•^^""SSI^J? diskette in de disk-drive doet, en de APPLE daarna aanzet, of als 
je PR#6 dpet of, in de monitor, 6 CTRL-P, dan gaat de disk-drive draaien en 
wordt het HELLO-programma gerund. Hoe komt dit nou? 

Wei als je de computer aanzet, of een van de andere mogel i jkheden gebruikt om 
de drive te laten opstarten, dan springt de computer naar locatie $C500. Dit is 
decimaal 50688 (je kunt dus ook de drive laten opstarten met CALL 50688 •). Hier 
begint namelijk de ROM van de disk-drive interface (als de disk-drive interface 
in slot 6 zit, anders springt de computer naar een andere locatie; als je hem 
Dijyoorbeeld in slot 4 hebt zitten, zal de computer naar geheugenlocatie $C4O0 
spnngen). Op *C600 begint dus de interface, en in de ROM van die interface 
staan een aantal routines om ervoor te zorgen dat de drive opstart. 

ioLS^'^^i!''*^^'' ^" disk-interface ROM, oftewel op locatie *C600? Op *C600- 
»LbSB staat een routine om de eerste disk-drive (drive 1) aan te zetten de 
drive-arm naar track 0/sector 0 te bewegen (dit hoor je duidelijk) en dan zorgt 
deze routine er ook nog voor, om op speciale locaties informatie op te slaan. Op 
»3D wordt het sectornummer gezet, in dit geval dus $00. Op $41 wordt het track- 
nummer gezet, in dit geval dus ook $00. En dan zet het op de adressen $?6/$27 
het adres, waar de informatie van de sector moet komen. Hier komt $800 te staan 
dus de sector die wordt ingelezen komt op $800 terecht. 

• P-.?EfP9r*9^^^.?*^^* routine om eensector te lezen. Het haalt de nodige 




D5/AA/AD tegenkomt, springt het naar $C6A6. 
Op $C683 begint een routine om de eerste 6 bytes te lezen. De eerste 2 bevatten 
het volumenummer, de tweede 2 bevatten het tracknummer en de derde 2 het sector- 
nummer. Deze laatste 4 bytes vergelijkt het met wat er op $41 en $3D staat. Het 
siaat het gevonden tracknummer op in $40. Eerst vergelijkt het het gevonden sec- 
tornummer met wat er op $3D staat. Daarna vergelijkt het het gevonden tracknum- 
mer met wat er op $41 staat. Als een van deze beiden niet gelijk is, gaat het 
terug naar $C65C. Als beiden kloppen, gaat het naar $C65D, en gaat daar de data 
lezen die op de disk staat. 

Op $C6A6 begint een routine om de gevonden data goed in het geheugen te zetten. 
Ook verhoogt hij de waarde van $27 met 1, zodat de volgende sector data $100 
bytes verder komt te staan, oftewel op de volgende pagina. Hierna sprinqt de 
routine naar $801. ^ r ^ ^ 

Van dit alles hoef je eigenlijk alleen te onthouden dat deze routines 
zorgen dat sector 0 van track 0 wordt ingelezen, en dat dit boot 0 heet. 

Wat gebeurt er nu allemaal verder vanaf $801? Hier wordt boot 2 geladen (de rou- 
tine die op $801 begint heet, zoals te verwachten, boot 1). Er worden 9 sectoren 
ingelezen en het gebruikt daarvoor de routine op $C65C. In deze 9 sectoren staat 
onder andere de RWTS-routine (Read Write Track Sector). De informatie op deze 9 
sectoren wordt meteen neergezet op het adres waar ze stonden toen de diskette 
geinitialiseerd werd. Als de diskette op een 48K APPLE geinit ial iseerd werd, of 
op een APPLE He of lie, dan komen de sectoren op $B700 tot $BFFF. Dan sprinqt 
de routine, die begon op $801 naar $B700 en hier wordt dan het verdere DOS 
geladen (boot 2). Op een 48K APPLE wordt het verdere DOS op $9D00 gezet. 



ervoor 



Nu is dus geheel DOS 3.3 geladen, maar hoe komt het nou dat het HELLO-programma 
wordt geRUNd? ^ 

Wei dit is heel wat makkelijker uit te leggen. De naam van het HELLO-prgramma 
So^^l "^'"^iiJ'* bewaard in DOS, en wel op iAA75. De naam wordt gelezen v&naf 
»flR75, en DOS runt dan dit programma. Heel gemakkelijk dus • 



yii HEEFI INFQRMAIIE OMIRENI DE C-16 ? 
Fred Behringer ~ ~ ~ 



Strassbergerstrasse 9c/519 
D - 8000 Muenchen 40 

Behalve mijn VIC-20 waarmee ik al sedert ruim 5 jaar 
Commodore-I6 gekocht, omdat ^ - ■ 

sheets (of kan mij vertellen. 



^ - _ . . _ J — werk, heb ik nu nog een 

die zo goedkoop was (DM 130 --). Wie heeft data 

H= r ic I J Yn,- :--;i?;;;'«=rif?^r i^-,^f?? verkrijgen) voor de volgende in 
de C-16 stekende iC's : CPU 8501 (of 7501), TED 7360 T?) ? Bestaan er Becommen- 
tarieerde ROM-list ings, zoals dat met de DATA-Becker-boeken "VC-20 Intern" 
C-64 Intern" het geval is? En waar zijn deze verkri jgbaar? 
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OKIMATE 20 




Futuristische OKI-afdrukkers erkend de 
beste in Nederland. Nu ook voor 
iedereen betaalbaar geworden. 
Aansluitbaar op Commodore 64, BBC, 
MSX e.a. homecomputers. 



Vraag de dealerlijst bij de officieie importeur 



OKI MICROLINE 182 

OKImate20 v.a.f 1.985 - 
Microline182 v.a. fl. 1170.-- 
excl. b.t.w. Bruto adviesprijs. 

OKI printers, door computers voor computers. 

Tech nitron B.V. 
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